#!/bin/sh # This is a shell archive (produced by GNU sharutils 4.1). # To extract the files from this archive, save it to some FILE, remove # everything before the `!/bin/sh' line above, then type `sh FILE'. # # Made on 1996-10-06 16:10 JST by . # Source directory was `/user/kono/src/nkf/nkf16'. # # Existing files will *not* be overwritten unless `-c' is specified. # # This shar contains: # length mode name # ------ ---------- ------------------------------------------ # 55300 -rw-r--r-- nkf.c # 13777 -rw-r--r-- nkf.doc # 3296 -rw-r--r-- nkf.1 # 7364 -rw-r--r-- nkf.1j # 10300 -rw-r--r-- nkf_test.pl # touch -am 1231235999 $$.touch >/dev/null 2>&1 if test ! -f 1231235999 && test -f $$.touch; then shar_touch=touch else shar_touch=: echo echo 'WARNING: not restoring timestamps. Consider getting and' echo "installing GNU \`touch', distributed in GNU File Utilities..." echo fi rm -f 1231235999 $$.touch # # ============= nkf.c ============== if test -f 'nkf.c' && test X"$1" != X"-c"; then echo 'x - skipping nkf.c (file already exists)' else echo 'x - extracting nkf.c (text)' sed 's/^X//' << 'SHAR_EOF' > 'nkf.c' && /** Network Kanji Filter. (PDS Version) ************************************************************************ ** Copyright (C) 1987, Fujitsu LTD. (Itaru ICHIKAWA) ** 連絡先： （株）富士通研究所　ソフト３研　市川　至 ** （E-Mail Address: ichikawa@flab.fujitsu.co.jp） ** Copyright (C) 1996 ** 連絡先： 琉球大学情報工学科 河野 真治 mine/X0208 support ** （E-Mail Address: kono@ie.u-ryukyu.ac.jp） ** 連絡先： COW for DOS & Win16 & Win32 & OS/2 ** （E-Mail Address: GHG00637@niftyserve.or.p） ** 営利を目的としない限り、このソースのいかなる ** 複写，改変，修正も許諾します。その際には、この部分を残すこと。 ** このプログラムについては特に何の保証もしない、悪しからず。 ** Everyone is permitted to do anything on this program ** including copying, modifying, improving ** as long as you don't try to make money off it, ** or pretend that you wrote it. ** i.e., the above copyright notice has to appear in all copies. ** THE AUTHOR DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE. ***********************************************************************/ X static char *CopyRight = X "Copyright (C) 1987, FUJITSU LTD. (I.Ichikawa),1996 S. Kono, COW"; static char *Version = X "1.62"; static char *Patchlevel = X "4/9609/Shinji Kono, COW"; X /* ** ** ** ** USAGE: nkf [flags] [file] ** ** Flags: ** b Output is bufferred (DEFAULT) ** u Output is unbufferred ** ** t no operation ** ** j Outout code is JIS 7 bit (DEFAULT SELECT) ** s Output code is MS Kanji (DEFAULT SELECT) ** e Output code is AT&T JIS (DEFAULT SELECT) ** l Output code is JIS 7bit and ISO8859-1 Latin-1 ** ** m MIME conversion for ISO-2022-JP ** i_ Output sequence to designate JIS-kanji (DEFAULT_J) ** o_ Output sequence to designate single-byte roman characters (DEFAULT_R) ** ** r {de/en}crypt ROT13/47 ** ** v display Version ** ** T Text mode output (for MS-DOS) ** ** x Do not convert X0201 kana into X0208 ** Z Convert X0208 alphabet to ASCII ** ** f60 fold option ** ** m MIME decode ** B try to fix broken JIS, missing Escape ** B[1-9] broken level ** ** O Output to 'nkf.out' file ** d Delete ¥r in line feed ** c Add ¥r in line feed **/ /******************************/ /* デフォルトの出力コード選択 */ /* Select DEFAULT_CODE */ #define DEFAULT_CODE_JIS /* #define DEFAULT_CODE_SJIS */ /* #define DEFAULT_CODE_EUC */ /******************************/ X #if (defined(__TURBOC__) || defined(LSI_C)) && !defined(MSDOS) #define MSDOS #endif X #include X #if defined(MSDOS) || defined(__OS2__) #include #include #include #endif X #ifdef MSDOS #ifdef LSI_C #define setbinmode(fp) fsetbin(fp) #else /* Microsoft C, Turbo C */ #define setbinmode(fp) setmode(fileno(fp), O_BINARY) #endif #else /* UNIX,OS/2 */ #define setbinmode(fp) #endif X #ifdef _IOFBF /* SysV and MSDOS */ #define setvbuffer(fp, buf, size) setvbuf(fp, buf, _IOFBF, size) #else /* BSD */ #define setvbuffer(fp, buf, size) setbuffer(fp, buf, size) #endif X /*Borland C++ 4.5 EasyWin*/ #if defined(__TURBOC__) && defined(_Windows) && !defined(__WIN32__) /*Easy Win */ #define EASYWIN #include #endif X #define FALSE 0 #define TRUE 1 X /* state of output_mode and input_mode */ X #define ASCII 0 #define X0208 1 #define X0201 2 #define NO_X0201 3 #define JIS_INPUT 4 #define SJIS_INPUT 5 #define LATIN1_INPUT 6 #define FIXED_MIME 7 #define DOUBLE_SPACE -2 X #define NL 0x0a #define ESC 0x1b #define SP 0x20 #define AT 0x40 #define SSP 0xa0 #define DEL 0x7f #define SI 0x0f #define SO 0x0e #define SSO 0x8e X #define HOLD_SIZE 32 #define IOBUF_SIZE 16384 X #define DEFAULT_J 'B' #define DEFAULT_R 'B' X #define SJ0162 0x00e1 /* 01 - 62 ku offset */ #define SJ6394 0x0161 /* 63 - 94 ku offset */ X X /* MIME preprocessor */ X #define GETC(p) ((!mime_mode)?getc(p):mime_getc(p)) #define UNGETC(c,p) ((!mime_mode)?ungetc(c,p):mime_ungetc(c)) X X #ifdef EASYWIN /*Easy Win */ extern POINT _BufferSize; #endif X /* buffers */ X char stdibuf[IOBUF_SIZE]; char stdobuf[IOBUF_SIZE]; unsigned char hold_buf[HOLD_SIZE*2]; int hold_count; X /* MIME preprocessor fifo */ X #define MIME_BUF_SIZE (1024) /* 2^n ring buffer */ #define MIME_BUF_MASK (MIME_BUF_SIZE-1) #define Fifo(n) mime_buf[(n)&MIME_BUF_MASK] unsigned char mime_buf[MIME_BUF_SIZE]; unsigned int mime_top = 0; unsigned int mime_last = 0; /* decoded */ unsigned int mime_input = 0; /* undecoded */ X /* flags */ int unbuf_f = FALSE; int estab_f = FALSE; int nop_f = FALSE; int binmode_f = TRUE; /* binary mode */ int rot_f = FALSE; /* rot14/43 mode */ int input_f = FALSE; /* non fixed input code */ int alpha_f = FALSE; /* convert JIx0208 alphbet to ASCII */ int mime_f = FALSE; /* convert MIME B base64 or Q */ int mimebuf_f = FALSE; /* MIME buffered input */ int broken_f = FALSE; /* convert ESC-less broken JIS */ int iso8859_f = FALSE; /* ISO8859 through */ #if defined(MSDOS) || defined(__OS2__) int x0201_f = TRUE; /* Assume JISX0201 kana */ #else int x0201_f = NO_X0201; /* Assume NO JISX0201 */ #endif X /* X0208 -> ASCII converter */ X int c1_return; X /* fold parameter */ int line = 0; /* chars in line */ int prev = 0; int fold_f = FALSE; int fold_len = 0; X /* options */ char kanji_intro = DEFAULT_J, X ascii_intro = DEFAULT_R; X /* Folding */ X int fold(); #define FOLD_MARGIN 10 #define DEFAULT_FOLD 60 X /* converters */ X int (*iconv) (register int c2,register int c1); /* s_iconv or oconv */ int (*oconv) (register int c2,register int c1); /* [ejs]_oconv */ X /* Global states */ int output_mode = ASCII, /* output kanji mode */ X input_mode = ASCII, /* input kanji mode */ X shift_mode = FALSE; /* TRUE shift out, or X0201 */ int mime_mode = FALSE; /* MIME mode B base64, Q hex */ X /* X0208 -> ASCII translation table */ X extern unsigned char cv[],dv[],ev[],fv[]; X int file_out = FALSE; int add_cr = FALSE; int del_cr = FALSE; int end_check; X /* function prototype */ X extern int main(int argc,char **argv); extern int noconvert(register FILE *f); extern int convert(register FILE *f); extern int h_conv(register FILE *f,register int c2,register int c1); extern int push_hold_buf(int c2,int c1); extern int s_iconv(register int c2,register int c1); extern int e_oconv(register int c2,register int c1); extern int s_oconv(register int c2,register int c1); extern int j_oconv(register int c2,register int c1); extern int fold(register int c2,register int c1); extern int pre_convert(register int c1,register int c2); extern int mime_begin(FILE *f); extern int mime_getc(FILE *f); extern int mime_ungetc(unsigned int c); extern int mime_integrity(FILE *f,unsigned char *p); extern int base64decode(int c); extern int usage(void); X X X main (argc, argv) X int argc; X char **argv; { X register FILE *fin; X register char *cp; X #ifdef EASYWIN /*Easy Win */ X _BufferSize.y = 400;/*Set Scroll Buffer Size*/ #endif #ifdef DEFAULT_CODE_JIS X oconv = j_oconv; /* DEFAULT Code is JIS */ #endif #ifdef DEFAULT_CODE_SJIS X oconv = s_oconv; /* DEFAULT Code is S-JIS */ #endif #ifdef DEFAULT_CODE_EUC X oconv = e_oconv; /* DEFAULT Code is EUC */ #endif X X for (argc--,argv++; (argc > 0) && **argv == '-'; argc--, argv++) { X cp = *argv; X while (*cp) { X switch (*cp++) { X case 'b': /* buffered mode */ X unbuf_f = FALSE; X continue; X case 'u': /* non bufferd mode */ X unbuf_f = TRUE; X continue; X case 't': /* transparent mode */ X nop_f = TRUE; X continue; X case 'j': /* JIS output */ X case 'n': X oconv = j_oconv; X continue; X case 'e': /* AT&T EUC output */ X oconv = e_oconv; X continue; X case 's': /* SJIS output */ X oconv = s_oconv; X continue; X case 'l': /* ISO8859 Latin-1 support, no conversion */ X iso8859_f = TRUE; /* Only compatible with ISO-2022-JP */ X input_f = LATIN1_INPUT; X continue; X case 'i': /* Kanji IN ESC-$-@/B */ X if(*cp=='@'||*cp=='B') X kanji_intro = *cp++; X continue; X case 'o': /* ASCII IN ESC-(-J/B */ X if(*cp=='J'||*cp=='B'||*cp=='H') X ascii_intro = *cp++; X continue; X case 'r': X rot_f = TRUE; X continue; #if defined(MSDOS) || defined(__OS2__) X case 'T': X binmode_f = FALSE; X continue; #endif X case 'v': X usage(); X exit(1); X break; X /* Input code assumption */ X case 'J': /* JIS input */ X case 'E': /* AT&T EUC input */ X input_f = JIS_INPUT; X continue; X case 'S': /* MS Kanji input */ X input_f = SJIS_INPUT; X if(x0201_f==NO_X0201) x0201_f=TRUE; X continue; X case 'Z': /* Convert X0208 alphabet to asii */ X /* bit:0 Convert X0208 X bit:1 Convert Kankaku to one space X bit:2 Convert Kankaku to two spaces X */ X if('9'>= *cp && *cp>='0') X alpha_f |= 1<<(*cp++ -'0'); X else X alpha_f |= TRUE; X continue; X case 'x': /* Convert X0201 kana to X0208 or X0201 Conversion */ X x0201_f = FALSE; /* No X0201->X0208 conversion */ X /* accept X0201 X ESC-(-I in JIS, EUC, MS Kanji X SI/SO in JIS, EUC, MS Kanji X SSO in EUC, JIS, not in MS Kanji X MS Kanji (0xa0-0xdf) X output X0201 X ESC-(-I in JIS (0x20-0x5f) X SSO in EUC (0xa0-0xdf) X 0xa0-0xd in MS Kanji (0xa0-0xdf) X */ X continue; X case 'X': /* Assume X0201 kana */ X /* Default value is NO_X0201 for EUC/MS-Kanji mix */ X x0201_f = TRUE; X continue; X case 'f': /* folding -f60 or -f */ X fold_f = TRUE; X fold_len = atoi(cp); X if(!(0= *cp && *cp>='0') X broken_f |= 1<<(*cp++ -'0'); X else X broken_f |= TRUE; X continue; X case 'O':/* for Output file */ X file_out = TRUE; X continue; X case 'c':/* add cr code */ X add_cr = TRUE; X continue; X case 'd':/* delete cr code */ X del_cr = TRUE; X continue; X default: X /* bogus option but ignored */ X continue; X } X } X } X X if(iso8859_f && (oconv != j_oconv || !x0201_f )) { X fprintf(stderr,"Mixed ISO8859/JISX0201/SJIS/EUC output is not allowed.¥n"); X exit(1); X } X X if(binmode_f == TRUE) #ifdef __OS2__ X if(freopen("","wb",stdout) == NULL) X return (-1); #else X setbinmode(stdout); #endif X X if(unbuf_f) X setbuf (stdout, (char *) NULL); X else X setvbuffer (stdout, stdobuf, IOBUF_SIZE); X X if(argc == 0) { X if(binmode_f == TRUE) #ifdef __OS2__ X if(freopen("","rb",stdin) == NULL) return (-1); #else X setbinmode(stdin); #endif X setvbuffer (stdin, stdibuf, IOBUF_SIZE); X if(nop_f) X noconvert (stdin); X else X convert (stdin); X } else { X while (argc--) { X if((fin = fopen (*argv++, "r")) == NULL) { X perror (*--argv); X return (-1); X } else { /* reopen file for stdout */ X if(file_out == TRUE){ X if(argc == 1 ) { X if(freopen(*argv++, "w", stdout) == NULL) { X perror (*--argv); X return (-1); X } X argc--; X } else { X if(freopen("nkf.out", "w", stdout) == NULL) { X perror (*--argv); X return (-1); X } X } X if(binmode_f == TRUE) { #ifdef __OS2__ X if(freopen("","wb",stdout) == NULL) X return (-1); #else X setbinmode(stdout); #endif X } X } X if(binmode_f == TRUE) #ifdef __OS2__ X if(freopen("","rb",fin) == NULL) X return (-1); #else X setbinmode(fin); #endif X setvbuffer (fin, stdibuf, IOBUF_SIZE); X if(nop_f) X noconvert (fin); X else X convert (fin); X fclose (fin); X } X } X } #ifdef EASYWIN /*Easy Win */ X if(file_out == FALSE) X scanf("%d",&end_check); X else X fclose(stdout); #else /* for Other OS */ X if(file_out == TRUE) X fclose(stdout); #endif X return (0); } X int noconvert (f) X register FILE *f; { X register int c; X X while ((c = getc (f)) != EOF) X putchar (c); X return 1; } X X X X int convert (f) X register FILE *f; { X register int c1, X c2; X X c2 = 0; X X if(input_f == JIS_INPUT || input_f == LATIN1_INPUT) { X estab_f = TRUE; iconv = oconv; X } else if(input_f == SJIS_INPUT) { X estab_f = TRUE; iconv = s_iconv; X } else { X estab_f = FALSE; iconv = oconv; X } X input_mode = ASCII; X output_mode = ASCII; X shift_mode = FALSE; X #define NEXT continue /* no output, get next */ #define SEND ; /* output c1 and c2, get next */ #define LAST break /* end of loop, go closing */ X X while ((c1 = GETC (f)) != EOF) { X if(!c2 && !input_mode && c1 DEL) { X /* in case of 8th bit is on */ X if(!estab_f) { X /* in case of not established yet */ X if(c1 > SSP) { X /* It is still ambiguious */ X h_conv (f, c2, c1); X c2 = 0; X NEXT; X } else if(c1 < AT) { X /* ignore bogus code */ X c2 = 0; X NEXT; X } else { X /* established */ X /* it seems to be MS Kanji */ X estab_f = TRUE; X iconv = s_iconv; X SEND; X } X } else X /* in case of already established */ X if(c1 < AT) { X /* ignore bogus code */ X c2 = 0; X NEXT; X } else X SEND; X } else X /* 7 bit code */ X /* it might be kanji shitfted */ X if((c1 == DEL) || (c1 <= SP)) { X /* ignore bogus first code */ X c2 = 0; X NEXT; X } else X SEND; X } else { X /* first byte */ X if(c1 > DEL) { X /* 8 bit code */ X if(!estab_f && !iso8859_f) { X /* not established yet */ X if(c1 < SSP) { X /* it seems to be MS Kanji */ X estab_f = TRUE; X iconv = s_iconv; X } else if(c1 < 0xe0) { X /* it seems to be EUC */ X estab_f = TRUE; X iconv = oconv; X } else { X /* still ambiguious */ X } X c2 = c1; X NEXT; X } else { /* estab_f==TRUE */ X if(iso8859_f) { X SEND; X } else if(SSP<=c1 && c1<0xe0 && iconv == s_iconv) { X /* SJIS X0201 Case... */ X /* This is too arrogant, but ... */ X if(x0201_f==NO_X0201) { X iconv = oconv; X c2 = c1; X NEXT; X } else X if(x0201_f) { X if(dv[(c1-SSP)*2]||ev[(c1-SSP)*2]) { X /* look ahead for X0201/X0208conversion */ X if((c2 = GETC (f)) == EOF) { X (*oconv)(cv[(c1-SSP)*2],cv[(c1-SSP)*2+1]); X LAST; X } else if(c2==(0xde)) { /* 濁点 */ X (*oconv)(dv[(c1-SSP)*2],dv[(c1-SSP)*2+1]); X c2=0; X NEXT; X } else if(c2==(0xdf)&&ev[(c1-SSP)*2]) { X /* 半濁点 */ X (*oconv)(ev[(c1-SSP)*2],ev[(c1-SSP)*2+1]); X c2=0; X NEXT; X } X UNGETC(c2,f); c2 = 0; X } X (*oconv)(cv[(c1-SSP)*2],cv[(c1-SSP)*2+1]); X NEXT; X } else X SEND; X } else if(c1==SSO && iconv != s_iconv) { X /* EUC X0201 Case */ X /* This is too arrogant X if(x0201_f == NO_X0201) { X estab_f = FALSE; X c2 = 0; X NEXT; X } */ X c1 = GETC (f); /* skip SSO */ X euc_1byte_check: X if(x0201_f && SSP<=c1 && c1<0xe0) { X if(dv[(c1-SSP)*2]||ev[(c1-SSP)*2]) { X if((c2 = GETC (f)) == EOF) { X (*oconv)(cv[(c1-SSP)*2],cv[(c1-SSP)*2+1]); X LAST; X } X /* forward lookup 濁点/半濁点 */ X if(c2 != SSO) { X UNGETC(c2,f); c2 = 0; X (*oconv)(cv[(c1-SSP)*2],cv[(c1-SSP)*2+1]); X NEXT; X } else if((c2 = GETC (f)) == EOF) { X (*oconv)(cv[(c1-SSP)*2],cv[(c1-SSP)*2+1]); X (*oconv)(0,SSO); X LAST; X } else if(c2==(0xde)) { /* 濁点 */ X (*oconv)(dv[(c1-SSP)*2],dv[(c1-SSP)*2+1]); X c2=0; X NEXT; X } else if(c2==(0xdf)&&ev[(c1-SSP)*2]) { X /* 半濁点 */ X (*oconv)(ev[(c1-SSP)*2],ev[(c1-SSP)*2+1]); X c2=0; X NEXT; X } else { X (*oconv)(cv[(c1-SSP)*2],cv[(c1-SSP)*2+1]); X /* we have to check this c2 */ X /* and no way to push back SSO */ X c1 = c2; c2 = 0; X goto euc_1byte_check; X } X } X (*oconv)(cv[(c1-SSP)*2],cv[(c1-SSP)*2+1]); X NEXT; X } else X SEND; X } else if(c1 < SSP && iconv != s_iconv) { X /* strange code in EUC */ X iconv = s_iconv; /* try SJIS */ X c2 = c1; X NEXT; X } else { X /* already established */ X c2 = c1; X NEXT; X } X } X } else if((c1 > SP) && (c1 != DEL)) { X /* in case of Roman characters */ X if(shift_mode) { X c1 |= 0x80; X /* output 1 shifted byte */ X if(x0201_f && (!iso8859_f||input_mode==X0201) && X SSP<=c1 && c1<0xe0 ) { X if(dv[(c1-SSP)*2]||ev[(c1-SSP)*2]) { X if((c2 = GETC (f)) == EOF) { X (*oconv)(cv[(c1-SSP)*2],cv[(c1-SSP)*2+1]); X LAST; X } else if(c2==(0xde&0x7f)) { /* 濁点 */ X (*oconv)(dv[(c1-SSP)*2],dv[(c1-SSP)*2+1]); X c2=0; X NEXT; X } else if(c2==(0xdf&0x7f)&&ev[(c1-SSP)*2]) { X /* 半濁点 */ X (*oconv)(ev[(c1-SSP)*2],ev[(c1-SSP)*2+1]); X c2=0; X NEXT; X } X UNGETC(c2,f); c2 = 0; X } X (*oconv)(cv[(c1-SSP)*2],cv[(c1-SSP)*2+1]); X NEXT; X } else X SEND; X } else if(c1 == '(' && broken_f && input_mode == X0208 X && !mime_mode ) { X /* Try to recover missing escape */ X if((c1 = GETC (f)) == EOF) { X (*oconv) (0, '('); X LAST; X } else { X if(c1 == 'B' || c1 == 'J' || c1 == 'H') { X input_mode = ASCII; shift_mode = FALSE; X NEXT; X } else { X (*oconv) (0, '('); X /* do not modify various input_mode */ X /* It can be vt100 sequence */ X SEND; X } X } X } else if(input_mode == X0208) { X /* in case of Kanji shifted */ X c2 = c1; X NEXT; X /* goto next_byte */ X } else if(c1 == '=' && mime_f && !mime_mode ) { X if((c1 = getc (f)) == EOF) { X (*oconv) (0, '='); X LAST; X } else if(c1 == '?') { X /* =? is mime conversion start sequence */ X if(mime_begin(f) == EOF) /* check in detail */ X LAST; X else X NEXT; X } else { X (*oconv) (0, '='); X ungetc(c1,f); X NEXT; X } X } else if(c1 == '$' && broken_f && !mime_mode) { X /* try to recover missing escape */ X if((c1 = GETC (f)) == EOF) { X (*oconv) (0, '$'); X LAST; X } else if(c1 == '@'|| c1 == 'B') { X /* in case of Kanji in ESC sequence */ X input_mode = X0208; X shift_mode = FALSE; X NEXT; X } else { X /* sorry */ X (*oconv) (0, '$'); X (*oconv) (0, c1); X NEXT; X } X } else X SEND; X } else if(c1 == SI) { X shift_mode = FALSE; X NEXT; X } else if(c1 == SO) { X shift_mode = TRUE; X NEXT; X } else if(c1 == ESC ) { X if((c1 = GETC (f)) == EOF) { X (*oconv) (0, ESC); X LAST; X } else if(c1 == '$') { X if((c1 = GETC (f)) == EOF) { X (*oconv) (0, ESC); X (*oconv) (0, '$'); X LAST; X } else if(c1 == '@'|| c1 == 'B') { X /* This is kanji introduction */ X input_mode = X0208; X shift_mode = FALSE; X NEXT; X } else if(broken_f&0x2) { X input_mode = X0208; X shift_mode = FALSE; X NEXT; X } else { X (*oconv) (0, ESC); X (*oconv) (0, '$'); X (*oconv) (0, c1); X NEXT; X } X } else if(c1 == '(') { X if((c1 = GETC (f)) == EOF) { X (*oconv) (0, ESC); X (*oconv) (0, '('); X LAST; X } else { X if(c1 == 'I') { X /* This is X0201 kana introduction */ X input_mode = X0201; shift_mode = X0201; X NEXT; X } else if(c1 == 'B' || c1 == 'J' || c1 == 'H') { X /* This is X0208 kanji introduction */ X input_mode = ASCII; shift_mode = FALSE; X NEXT; X } else if(broken_f&0x2) { X input_mode = ASCII; shift_mode = FALSE; X NEXT; X } else { X (*oconv) (0, ESC); X (*oconv) (0, '('); X /* maintain various input_mode here */ X SEND; X } X } X } else { X /* lonely ESC */ X (*oconv) (0, ESC); X SEND; X } X } else if(c1 == NL && broken_f&4) { X input_mode = ASCII; X SEND; X } else X SEND; X } X /* send: */ X if(input_mode == X0208) X (*oconv) (c2, c1); /* this is JIS, not SJIS/EUC case */ X else X (*iconv) (c2, c1); /* can be EUC/SJIS */ X c2 = 0; X continue; X /* goto next_word */ X } X X /* epilogue */ X (*iconv) (EOF, 0); X return 1; } X X X X int h_conv (f, c2, c1) X register FILE *f; X register int c1, X c2; { X register int wc; X X X /** it must NOT be in the kanji shifte sequence */ X /** it must NOT be written in JIS7 */ X /** and it must be after 2 byte 8bit code */ X X hold_count = 0; X push_hold_buf (c2, c1); X c2 = 0; X X while ((c1 = GETC (f)) != EOF) { X if(c2) { X /* second byte */ X if(!estab_f) { X /* not established */ X if(c1 > SSP) { X /* it is still ambiguious yet */ X SEND; X } else if(c1 < AT) { X /* ignore bogus first byte */ X c2 = 0; X SEND; X } else { X /* now established */ X /* it seems to be MS Kanji */ X estab_f = TRUE; X iconv = s_iconv; X SEND; X } X } else X SEND; X } else { X /* First byte */ X if(c1 > DEL) { X /* 8th bit is on */ X if(c1 < SSP) { X /* it seems to be MS Kanji */ X estab_f = TRUE; X iconv = s_iconv; X } else if(c1 < 0xe0) { X /* it seems to be EUC */ X estab_f = TRUE; X iconv = oconv; X } else { X /* still ambiguious */ X } X c2 = c1; X NEXT; X } else X /* 7 bit code , then send without any process */ X SEND; X } X /* send: */ X if((push_hold_buf (c2, c1) == EOF) || estab_f) X break; X c2 = 0; X continue; X } X X /** now, X ** 1) EOF is detected, or X ** 2) Code is established, or X ** 3) Buffer is FULL (but last word is pushed) X ** X ** in 1) and 3) cases, we continue to use X ** Kanji codes by oconv and leave estab_f unchanged. X **/ X X for (wc = 0; wc < hold_count; wc += 2) { X c2 = hold_buf[wc]; X c1 = hold_buf[wc+1]; X (*iconv) (c2, c1); X } X return; } X X X int push_hold_buf (c2, c1) X int c2, X c1; { X if(hold_count >= HOLD_SIZE*2) X return (EOF); X hold_buf[hold_count++] = c2; X hold_buf[hold_count++] = c1; X return ((hold_count >= HOLD_SIZE*2) ? EOF : hold_count); } X X int s_iconv (c2, c1) X register int c2, X c1; { X if((c2 == EOF) || (c2 == 0)) { X /* NOP */ X } else { X c2 = c2 + c2 - ((c2 <= 0x9f) ? SJ0162 : SJ6394); X if(c1 < 0x9f) X c1 = c1 - ((c1 > DEL) ? SP : 0x1f); X else { X c1 = c1 - 0x7e; X c2++; X } X } X (*oconv) (c2, c1); X return 1; } X X e_oconv (c2, c1) X register int c2, X c1; { X c2 = pre_convert(c1,c2); c1 = c1_return; X if(fold_f) { X switch(fold(c2,c1)) { X case '¥n': X if(add_cr == TRUE) { X putchar('¥r'); X c1 = '¥n'; X } X putchar('¥n'); X break; X case 0: return; X case '¥r': X c1 = '¥n'; c2 = 0; X break; X case '¥t': X case ' ': X c1 = ' '; c2 = 0; X break; X } X } X if(c2==DOUBLE_SPACE) { X putchar(' '); putchar(' '); X return; X } X if(c2 == EOF) X return; X else if(c2 == 0 && (c1&0x80)) { X putchar(SSO); putchar(c1); X } else if(c2 == 0) { X if(c1 == '¥n' && add_cr == TRUE) X putchar('¥r'); X if(c1 != '¥r') X putchar(c1); X else if(del_cr == FALSE) X putchar(c1); X } else { X if((c1<0x20 || 0x7e> 1) + ((c2 <= 0x5e) ? 0x71 : 0xb1))); X putchar((c1 + ((c2 & 1) ? ((c1 < 0x60) ? 0x1f : 0x20) : 0x7e))); X } X return; } X j_oconv (c2, c1) X register int c2, X c1; { X c2 = pre_convert(c1,c2); c1 = c1_return; X if(fold_f) { X switch(fold(c2,c1)) { X case '¥n': X if(output_mode) { X putchar(ESC); X putchar('('); X putchar(ascii_intro); X } X if(add_cr == TRUE) { X putchar('¥r'); X c1 = '¥n'; X } X putchar('¥n'); X output_mode = ASCII; X break; X case '¥r': X c1 = '¥n'; c2 = 0; X break; X case '¥t': X case ' ': X c1 = ' '; c2 = 0; X break; X case 0: return; X } X } X if(c2 == EOF) { X if(output_mode) { X putchar(ESC); X putchar('('); X putchar(ascii_intro); X } X } else if(c2 == 0 && (c1 & 0x80)) { X if(input_mode==X0201 || !iso8859_f) { X if(output_mode!=X0201) { X putchar(ESC); X putchar('('); X putchar('I'); X output_mode = X0201; X } X c1 &= 0x7f; X } else { X /* iso8859 introduction, or 8th bit on */ X /* Can we convert in 7bit form using ESC-'-'-A ? X Is this popular? */ X } X putchar(c1); X } else if(c2 == 0) { X if(output_mode) { X putchar(ESC); X putchar('('); X putchar(ascii_intro); X output_mode = ASCII; X } X if(c1 == '¥n' && add_cr == TRUE) X putchar('¥r'); X if(c1 != '¥r') X putchar(c1); X else if(del_cr == FALSE) X putchar(c1); X } else if(c2 == DOUBLE_SPACE) { X if(output_mode) { X putchar(ESC); X putchar('('); X putchar(ascii_intro); X output_mode = ASCII; X } X putchar(' '); X if(c1 == '¥n' && add_cr == TRUE) X putchar('¥r'); X if(c1 != '¥r') X putchar(c1); X else if(del_cr == FALSE) X putchar(c1); X } else { X if(output_mode != X0208) { X putchar(ESC); X putchar('$'); X putchar(kanji_intro); X output_mode = X0208; X } X if(c1<0x20 || 0x7e0x80 Japanese (X0208/X0201) X <0x80 ASCII X ¥n new line X ' ' space X X This fold algorthm does not preserve heading space in a line. X This is the main difference from fmt. */ X int fold(c2,c1) register int c2,c1; { X int prev0; X if(c1=='¥r') X return 0; /* ignore cr */ X if(c1== 8) { X if(line>0) line--; X return 1; X } X if(c2==EOF && line != 0) /* close open last line */ X return '¥n'; X /* new line */ X if(c1=='¥n') { X if(prev == c1) { /* duplicate newline */ X if(line) { X line = 0; X return '¥n'; /* output two newline */ X } else { X line = 0; X return 1; X } X } else { X if(prev&0x80) { /* Japanese? */ X prev = c1; X return 0; /* ignore given single newline */ X } else if(prev==' ') { X return 0; X } else { X prev = c1; X if(++line<=fold_len) X return ' '; X else { X line = 0; X return '¥r'; /* fold and output nothing */ X } X } X } X } X if(c1=='¥f') { X prev = '¥n'; X if(line==0) X return 1; X line = 0; X return '¥n'; /* output newline and clear */ X } X /* X0208 kankaku or ascii space */ X if( (c2==0&&c1==' ')|| X (c2==0&&c1=='¥t')|| X (c2==DOUBLE_SPACE)|| X (c2=='!'&& c1=='!')) { X if(prev == ' ') { X return 0; /* remove duplicate spaces */ X } X prev = ' '; X if(++line<=fold_len) X return ' '; /* output ASCII space only */ X else { X prev = ' '; line = 0; X return '¥r'; /* fold and output nothing */ X } X } X prev0 = prev; /* we still need this one... , but almost done */ X prev = c1; X if(c2 || (SSP<=c1 && c1<=0xdf)) X prev |= 0x80; /* this is Japanese */ X line += (c2==0)?1:2; X if(line<=fold_len) { /* normal case */ X return 1; X } X if(line>=fold_len+FOLD_MARGIN) { /* too many kinsou suspension */ X line = (c2==0)?1:2; X return '¥n'; /* We can't wait, do fold now */ X } X /* simple kinsoku rules return 1 means no folding */ X if(c2==0) { X if(c1==0xde) return 1; /* ゛*/ X if(c1==0xdf) return 1; /* ゜*/ X if(c1==0xa4) return 1; /* 。*/ X if(c1==0xa3) return 1; /* ，*/ X if(c1==0xa1) return 1; /* 」*/ X if(c1==0xb0) return 1; /* - */ X if(SSP<=c1 && c1<=0xdf) { /* X0201 */ X line = 1; X return '¥n';/* add one new line before this character */ X } X /* fold point in ASCII { [ ( */ X if(( c1!=')'&& X c1!=']'&& X c1!='}'&& X c1!='.'&& X c1!=','&& X c1!='!'&& X c1!='?'&& X c1!='/'&& X c1!=':'&& X c1!=';')&& X ((prev0=='¥n')|| (prev0==' ')|| /* ignored new line */ X (prev0&0x80)) /* X0208 - ASCII */ X ) { X line = 1; X return '¥n';/* add one new line before this character */ X } X return 1; /* default no fold in ASCII */ X } else { X if(c2=='!') { X if(c1=='"') return 1; /* 、 */ X if(c1=='#') return 1; /* 。 */ X if(c1=='$') return 1; /* ， */ X if(c1=='%') return 1; /* ． */ X if(c1=='¥'') return 1; /* ＋ */ X if(c1=='(') return 1; /* ； */ X if(c1==')') return 1; /* ？ */ X if(c1=='*') return 1; /* ！ */ X if(c1=='+') return 1; /* ゛ */ X if(c1==',') return 1; /* ゜ */ X } X line = 2; X return '¥n'; /* add one new line before this character */ X } } X int pre_convert(c1,c2) register int c1,c2; { X if(c2) c1 &= 0x7f; X c1_return = c1; X if(c2==EOF) return c2; X c2 &= 0x7f; X if(rot_f) { X if(c2) { X c1 = rot47(c1); X c2 = rot47(c2); X } else { X if(!(c1 & 0x80)) X c1 = rot13(c1); X } X c1_return = c1; X } X /* JISX0208 Alphabet */ X if(alpha_f && c2 == 0x23 ) return 0; X /* JISX0208 Kigou */ X if(alpha_f && c2 == 0x21 ) { X if(0x21==c1) { X if(alpha_f&0x2) { X c1_return = ' '; X return 0; X } else if(alpha_f&0x4) { X c1_return = ' '; X return DOUBLE_SPACE; X } else { X return c2; X } X } else if(0x20' ';i++) { /* start at =? */ X if( ((r[i] = c1 = getc(f))==EOF) || nkf_toupper(c1) != p[i] ) { X /* pattern fails, try next one */ X q = p; X while (p = mime_pattern[++j]) { X for(k=2;k i */ X if(p[k]!=q[k]) break; X if(k==i && nkf_toupper(c1)==p[k]) break; X } X if(p) continue; /* found next one, continue */ X /* all fails, output from recovery buffer */ X ungetc(c1,f); X for(j=0;j> 4) & 0x03); X if(c2 != '=') { X Fifo(mime_last++) = cc; X cc = ((t2 << 4) & 0x0f0) | ((t3 >> 2) & 0x0f); X if(c3 != '=') { X Fifo(mime_last++) = cc; X cc = ((t3 << 6) & 0x0c0) | (t4 & 0x3f); X if(c4 != '=') X Fifo(mime_last++) = cc; X } X } else { X return c1; X } X return Fifo(mime_top++); } X int mime_ungetc(c) unsigned int c; { X Fifo(mime_last++) = c; X return c; } X X int mime_integrity(f,p) FILE *f; unsigned char *p; { X int c,d; X unsigned int q; X /* In buffered mode, read until =? or NL or buffer full X */ X mime_input = mime_top; X mime_last = mime_top; X while(*p) Fifo(mime_input++) = *p++; X d = 0; X q = mime_input; X while((c=getc(f))!=EOF) { X if(((mime_input-mime_top)&MIME_BUF_MASK)==0) break; X if(c=='=' && d=='?') { X /* checked. skip header, start decode */ X Fifo(mime_input++) = c; X mime_input = q; X return 1; X } X if(!( (c=='+'||c=='/'|| c=='=' || c=='?' || X ('a'<=c && c<='z')||('A'<= c && c<='Z')||('0'<=c && c<='9')))) X break; X /* Should we check length mod 4? */ X Fifo(mime_input++) = c; X d=c; X } X /* In case of Incomplete MIME, no MIME decode */ X Fifo(mime_input++) = c; X mime_last = mime_input; /* point undecoded buffer */ X mime_mode = 1; /* no decode on Fifo last in mime_getc */ X return 1; } X int base64decode(c) X int c; { X int i; X if(c > '@') X if(c < '[') X i = c - 'A'; /* A..Z 0-25 */ X else X i = c - 'G' /* - 'a' + 26 */ ; /* a..z 26-51 */ X else if(c > '/') X i = c - '0' + '4' /* - '0' + 52 */ ; /* 0..9 52-61 */ X else if(c == '+') X i = '>' /* 62 */ ; /* + 62 */ X else X i = '?' /* 63 */ ; /* / 63 */ X return (i); } X int usage() { X fprintf(stderr,"USAGE: nkf(nkf32,wnkf,nkf2) -[flags] [in file] .. [out file for -O flag]¥n"); X fprintf(stderr,"Flags:¥n"); X fprintf(stderr,"b,u Output is bufferred (DEFAULT),Output is unbufferred¥n"); #ifdef DEFAULT_CODE_SJIS X fprintf(stderr,"j,s,e Outout code is JIS 7 bit, Shift JIS (DEFAULT), AT&T JIS (EUC)¥n"); #endif #ifdef DEFAULT_CODE_JIS X fprintf(stderr,"j,s,e Outout code is JIS 7 bit (DEFAULT), Shift JIS, AT&T JIS (EUC)¥n"); #endif #ifdef DEFAULT_CODE_EUC X fprintf(stderr,"j,s,e Outout code is JIS 7 bit, Shift JIS, AT&T JIS (EUC) (DEFAULT)¥n"); #endif X fprintf(stderr,"J,S,E Input assumption is JIS 7 bit , Shift JIS, AT&T JIS (EUC)¥n"); X fprintf(stderr,"t no conversion¥n"); X fprintf(stderr,"i_ Output sequence to designate JIS-kanji (DEFAULT B)¥n"); X fprintf(stderr,"o_ Output sequence to designate ASCII (DEFAULT B)¥n"); X fprintf(stderr,"r {de/en}crypt ROT13/47¥n"); X fprintf(stderr,"v Show this usage¥n"); X fprintf(stderr,"m[BQ] MIME decode [B:base64 stream,Q:quoted stream]¥n"); X fprintf(stderr,"l ISO8859-1 (Latin-1) support¥n"); X fprintf(stderr,"f Folding: -f60 or -f¥n"); X fprintf(stderr,"Z[0-2] Convert X0208 alphabet to ASCII 1: Kankaku to space,2: 2 spaces¥n"); X fprintf(stderr,"X,x Assume X0201 kana in MS-Kanji, -x preserves X0201¥n"); X fprintf(stderr,"B[0-2] Broken input 0: missing ESC,1: any X on ESC-[($]-X,2: ASCII on NL¥n"); #ifdef MSDOS X fprintf(stderr,"T Text mode output¥n"); #endif X fprintf(stderr,"O Output to File (DEFAULT 'nkf.out')¥n"); X fprintf(stderr,"d,c Delete ¥¥r in line feed, Add ¥¥r in line feed¥n"); X fprintf(stderr,"Network Kanji Filter Version %s (%s) " #if defined(MSDOS) && !defined(_Windows) X "for DOS" #endif #if !defined(__WIN32__) && defined(_Windows) X "for Win16" #endif #if defined(__WIN32__) && defined(_Windows) X "for Win32" #endif #ifdef __OS2__ X "for OS/2" #endif X ,Version,Patchlevel); X fprintf(stderr,"¥n%s¥n",CopyRight); X return 0; } X /** X ** パッチ制作者 X ** void@merope.pleiades.or.jp (Kusakabe Youichi) X ** NIDE Naoyuki X ** ohta@src.ricoh.co.jp (Junn Ohta) X ** inouet@strl.nhk.or.jp (Tomoyuki Inoue) X ** kiri@pulser.win.or.jp (Tetsuaki Kiriyama) X ** Kimihiko Sato X ** a_kuroe@kuroe.aoba.yokohama.jp (Akihiko Kuroe) X ** kono@ie.u-ryukyu.ac.jp (Shinji Kono) X ** GHG00637@nifty-serve.or.jp (COW) X ** X ** 最終更新日 X ** 1996.9.26 X **/ X /* end */ SHAR_EOF $shar_touch -am 1006155696 'nkf.c' && chmod 0644 'nkf.c' || echo 'restore of nkf.c failed' shar_count="`wc -c < 'nkf.c'`" test 55300 -eq "$shar_count" || echo "nkf.c: original size 55300, current size $shar_count" fi # ============= nkf.doc ============== if test -f 'nkf.doc' && test X"$1" != X"-c"; then echo 'x - skipping nkf.doc (file already exists)' else echo 'x - extracting nkf.doc (text)' sed 's/^X//' << 'SHAR_EOF' > 'nkf.doc' && NAME X nkf - ネットワーク用漢字コード変換フィルタ v1.62 X SYNOPSIS X nkf [options] [in_file] ...Unix版 X nkf [options] [in_file] [out_file for -O] ...DOS版 X wnkf [options] [in_file] [outfile for -O] ...Windows16bit(3.x)版 X nkf32 [options] [in_file] [outfile for -O]...Windows32bit(95/NT)版 X nkf2 [options] [in_file] [outfile for -O] ...OS/2版 X X （名称は、同じPath上にあっても区別できるように変更している。） X DESCRIPTION X nkfはネットワークでメールやニュースの読み書きをするために作られた、漢 X字コードの変換フィルタである。 X Xこのnkfの特徴としては、入力漢字コード系の統計的な自動認識機能がある。 Xこのため、利用者は、入力漢字コード系が何であるかを知らなくても、出力漢字 Xコード系のみ指定すれば良いことになる。ただ、この判定機構は、理論的には完 X全ではないが、通常のニュースやメールのメッセージについては確実に動作する X安全なものにはなっている。 X X現在、nkfが認識できる入力の漢字コード系は、いわゆる「JISコード」(ISO- 2022-JPに基づくもの)、MS漢字コード(シフトJIS)、日本語EUC(AT&Tコード)のい Xずれかである。出力する漢字コード系も、この3種類である。 X X入力は、ファイルを指定しなければ、標準入力となる。出力は標準出力である。 X X指定できるオプションは、以下の通り。-mu のように続けることができる。 X X -b バッファリング出力を行う。(デフォルト) X -u 出力時に、バッファリングしない。 X rsh localhost | nkf -u というように使う。 X X -t 何もしない。 X X -j JISコードを出力する。(デフォルト) X X -e EUCコードを出力する。 X X -s シフトJISコードを出力する。 X X -i? JIS漢字を指示するシーケンスとして ESC-'$'-?を使用する。 X (デフォルトは、ESC-'$'-'B') X X -o? 1バイト英数文字セットを指示するシーケンスとして、ESC- X '('-?を使用する。(デフォルトは、ESC-'('-'B') X X -r ROT13/47の変換をする。 X X -v バージョンを表示する。 X X -T テキストモードで出力する。(MS-DOS上でのみ効力を持つ) X X -m MIME を解読する。ISO-2022-JP(base64)とISO-8859-1(Q encode) X のみを解読する。ISO-8859-1 (Latin-1) を解読する時は、 X -lフラグも必要である。 X -mB MIME base64 stream を解読する。ヘッダなどは取り除くこと。 X -mQ MIME quoted stream を解読する。 X X -l 0x80-0xfeのコードをISO-8859-1 (Latin-1)として扱う。 X JISコードアウトプットとの組合せみのみ有効。 X -s, -e, -xとは両立しない。 X X -f? 一行?文字になるように簡単な整形をおこなう。デフォルトは X 60文字である。 X X -Z X0208中の英数字と若干の記号をASCIIに変換する。 X -Z1 はX0208間隔をASCII spaceに変換する。 X -Z2 はX0208間隔をASCII space 二つに変換する。 X X X -J -E -S -X -B X 期待される入力コードの性質を指定する。 X -J ISO-2022-JPを仮定する。 X -E 日本語EUC(AT&T)を仮定する。 X -S MS漢字を仮定する。X0201仮名も仮定される。 X -X MS漢字中にX0201仮名があると仮定する。 X -B 壊れた(Broken)JISコード。ESCがなくなったと仮定する。 X -B1 ESC-(, ESC-$ のあとのコードを問わない X -B2 改行のあとに強制的にASCIIに戻す X X -x 通常おこなわれるX0201仮名->X0208の仮名変換をしないで、 X X0201仮名を保存する。入力は、MS-Kanjiの1byte仮名、SO/SI、 X ESC-(-I, SSOを受け付ける。出力は、日本語EUC中ではSSO、 X JISでは ESC-'('-I を使う。 X X -O ファイル out_file に出力が保存されます。ファイル名が指定され X ていない場合は、'nkf.out'又は'wnkf.out'に出力する。 X X -c 行末にCRコード(0D)を追加(拡張機能 -T と併用不可) X X -d 行末からCRコード(0D)を削除(拡張機能 -T と併用不可) X X AUTHOR X X市川 至 ichikawa@flab.fujitsu.co.jp (was ichikawa@fujitsu.JUNET) X ACKNOWLEDGE X X morb@fujitsu, kiss@ayumi.stars.flab.fujitsu, cen122@flab.fujitsu, X yuki@flab.fujitsu 他、fujitsu & flab.fujitsuの皆さんの協力に感謝。 X shinoda@cs.titech, kato@cs.titech, uematsu@cs.titech TNX X kono@ie.u-ryukyu.ac.jp, GHG00637@niftyserve.or.jp X BUGS X X実は、入力のコード系の判定は、EUCとシフトJISとの自動判定であり、最初に X特定できる文字が来た時点で確定してしまう。そして、特定不能の間は保留バッ Xファにためておかれ、確定後に処理される。このため、 X X 1)7ビットJISは常に認識される。シフトJIS、EUC混合もほとんどの X 場合は問題がない。ただし、 X X 2)シフトJISのX0201仮名とEUCが識別できない。したがって、 X デフォルトではシフトJISのX0201仮名はないと仮定している。 X X 3)ちょっと、のろい。(初期の版よりは改良されている) X JIS漢字の新旧版の区別とか、ASCIIとJISローマ字の区別などについては保存さ Xれない。 X Xこのフィルタの変換は、コード系に対応した一括写像を施すだけなので、外字 Xや特殊記号や罫線素片など、JIS第一、第二水準表において定義されていないコー Xドに各社により割り当てられた文字がどうなるかまでは関知しない。そして、第 X二水準がないとかあるとかによる問題は、このフィルタの範囲外と思える。それ Xらは、書き手の責任でなんとかしてもらいたい。 X Xいずれにせよ、通常のニュースの記事については問題はなく変換できるはずで Xある。(と思うのだが、今ひとつ自信はない) X kono@csl.sony.co.jp (Shinji Kono) による変更。 X nkf 1.4 の冗長だけど昔は便利だったオプションのいくつかは削除されている。 -n -Bなど。 X XX0201仮名はデフォルトでX0208に変換される。ただし、シフトJISのX0201仮名 XはデフォルトではEUCだと解釈されてしまう。これが望ましくない時には -S や -X などのフラグを使えば良い。-Xを指定すると一旦確定したシフトJISから EUCに移行することはない。ESC-(-Iによる X0201は常に認識される。SI/SO SSOは、-lが指定されていなければX0201と解釈する。 X MIME decodeは、ISO-2022-JPのbase64と、ISO-8859-1の16進encodeのみ decodeする。 MIME decodeは、単純な改行や空白は安全に読み飛ばされる。 Xということは、 MIME decode中の空白は保存されない。lessやrnで行が分割 Xされた時は、 Terminalによって異なる ESC-[-K などが挿入されるので、 X完全にはdecode できない。ISO-8859-1 出力はJIS コード出力としか両立しない。 X Fold 機能はfmtと異なり行頭の空白を無視する。禁則処理はあるが指定された X長さ+5で強制改行する。 X XX0201仮名はrot47されない。 X nkf 1.6 X kono@ie.u-ryukyu.ac.jp (Shinji Kono) による変更。 X MIME のチェックをきびしくして(遅くなった分)安全になった。 Xしたがって複数行にまたがるMIMEはdecodeされない。 MIME の直後の空白は読み飛ばす。Q-Encding の_は空白に変換される。 X -B のlevelを0,1,2 に増やした。MIMEのbase64, Q-Encodingを解読する X機能を付けた。ヘッダなどは解読しないので、Encodeされた部分だけを X通す必要がある。 -mB は、nkf1.5と違う動きをするので、-B -m とすること。 X nkf 1.6.1 X X -Z で〜 -> ‾の変換を止めた。 X -Z1 でX0208間隔->ASCII spaceの変換をおこなう。 X -Z2 でX0208間隔->ASCII space 2個の変換をおこなう。 X X kabe@dais.is.tohoku.ac.jp (Taketo Kabe) による日本語roff のソースが X つきました。 X ======== nkf 1.62 X GHG00637@niftyserve.or.jp (COW) による変更 X X　市川氏のnkfは、UNIX用のツールであるので、出力のデフォルトの設定が7bit XのJISコードであったものを、DOS,Windows版では、S-JISコードを出力デフォル Xトに設定した。これにより、UNIXで作成されたファイルを、DOS,Windows上で閲 X覧することができる。その他の機能追加としてバージョン情報と使用方法を表示 Xするようにし、ファイル出力機能を追加した。（再コンパイルで変更可能） X Windows16bit版のみの拡張について X X　Windows16bit版については、リダイレクトやパイプ機能が使えません。よってこの X場合には-Oオプションを利用してファイル出力されたものを利用してもらいたい。 X X例：　wnkf -e -O nkf.in nkf.out ...nkf.inをEUCコードでnkf,outに出力する。 X X　Windows16bit版では、標準出力及びエラー出力がウインドウ画面になります。標準 X出力の場合はスクロール動作が追加されており、画面が流れないようになっている。 Xだだし、-Oオプションを指定した場合にはファイルに出力されるため、画面に Xは何も表示されない。 Xまた、EasyWinのバージョンアップで、400行までのクリップボード転送と印刷も X可能となった。また、ドラッグ・アンド・ドロップにも対応している。 X X　UNIXファイルのViewerとして使うには、以下のように使用する。これは拡張子 Xを関連づけしても使用可能と思われる。 X X例：　wnkf in.euc ...EUCコードのファイルをS-JISで閲覧 X　　　wnkf in.jis ...JISコードのファイルをS-JISで閲覧 X Xなお、このwnkf.exeはDOS窓上では起動できないので、コマンドラインで、 Windows16bitソフトが動作できる環境であるComWin,ComRun等を利用してほしい。 (Windows95/NTであれば、コンソールから実行が可能である。) X DOS,OS/2,Windows32bit版について X X　DOS,OS/2,Windows32bit版はUNIXと同じようにパイプ及びリダイレクトが可能 Xである。よって、以下のようにしてもファイル出力可能である。 X X例：　nkf -e nkf.in > nkf.out ...nkf.inをEUCコードでnkf,outに出力する。 X X　Viewerとして使用する場合は以下のようにする。 X X例：　nkf in.euc | more ...EUCコードのファイルをS-JISで閲覧 X　　　nkf in.jis | more ...JISコードのファイルをS-JISで閲覧 X X DOS,WindowsとUNIX間のデータ変換機能については、改行コードのCR(0D)を削除 Xしたり追加したりする機能を追加した。(UNIXのアーカイブを展開した時に便利) X X例： nkf -j -d nkf.man > nkf.jis ...nkf.manをCRを削除してJISコードに X 変換し、nkf.jisに書き込む。 X X　-Oオプションも使えるように変更したので、上記の例は次のように使用可能 X　このコマンドラインでアプリの中から直接起動できて便利のはずですが・・ X X例： nkf -j -d -O nkf.man nkf.jis X X追加オプションの利用について、 X X 追加された-c,-dオプションは、ftpで転送されたバイナリ圧縮解凍後のテキスト XをUNIXとDOS Windows間で使用できるように改行コードを変換するのに利用できる Xと思う。通常は-Tオプションだけでも十分であろう。 X X新OS/2版使用における注意 X X　この新OS/2版を利用するには、GNUによるemx 0.8h以降の環境は不要です。 X　以下にIBM VisualAge C++3.0での実行ファイル作成手順を示す。 X icc /Fe nkf2.exe nkf.c X X変更履歴 X Xこのnkfは、1995年3月1日版からの差分パッチ1.5をベースに機能拡張したものである。 Xこのため、前回公開したVersion 1.43より-OオプションがWindows16bitだけに変更さ Xれ、Windows16bit版は、画面スクロールとクリックボード転送と印刷機能が追加され Xた。 X以前のバージョンでは、JIS変換時に障害があり、-Oオプションのストリームの使用方 X法を変更した。また、私COWは、最近インターネットに接続したが、Newsに参加してい Xないため、最新でないかもしれないのは、勘弁していただきたい。 X Ver1.52において変換のデフォルト表示の間違い等を修正した。申し訳ない。 Ver1.53においてnkf,nkf32,nkf2の-Oオプションを復活した。(方針が気まぐれだ) (コマンドシェルをアプリから実行するのに>や|が認識されない問題があるため) Xまた、OS/2における-c,-dオプション指定時にバイナリモ−ドにならなかった Xため、改行コ−ド変換ができないバグを修正した。(iccの仕様が特殊であった。) Xそれに付随して、その他-c,-dオプションのJIS,EUCモードでの不具合も修正した。 Ver1.54において-mオプションでMIMEエンコードされた文字列の扱いのヘッダー部分が、 X =?ISO-2022-JP?B?GyRCJCskOiRkJHMbKEI=?= Xまたは、 X =?iso-2022-jp?B?GyRCJCskOiRkJHMbKEI=?= Xの場合でも正常に変換できるように修正した。 Ver1.62においてkono氏のVer1.6の-Z,-B levelオプション追加機能に対処した。 Xそれ以外に-cオプションのバグ修正をおこなった。 Xデフォルトの出力コードを選択できるようにソースを変更した。 X Xパッチについて X nkf には数多くの非公式パッチが存在する。今までそれらを編集して Xきたわけだが、今回「決定版」としてオリジナルからのパッチ一本に X集約した。もちろん、採用したパッチの出典は明記してある。パッチ Xやドキュメントを書いた人のうち、本パッケージに関わっているのは X以下に示す通りである。(順不同、敬称略) X X void@merope.pleiades.or.jp (Kusakabe Youichi) X nide@ics.nara-wu.ac.jp (NIDE Naoyuki) X ohta@src.ricoh.co.jp (Junn Ohta) X inouet@strl.nhk.or.jp (Tomoyuki Inoue) X a_kuroe@hoffman.cc.sophia.ac.jp (Akihiko Kuroe) X kono@ie.u-ryukyu.ac.jp(Shinji Kono) X X最後に X nkfをGUI化したEasy nkfを公開しています。(http://www.mirai.or.jp/‾cow/) X他のソフトもころがっていますので、暇な人は覗いてみてください。 SHAR_EOF $shar_touch -am 1006155696 'nkf.doc' && chmod 0644 'nkf.doc' || echo 'restore of nkf.doc failed' shar_count="`wc -c < 'nkf.doc'`" test 13777 -eq "$shar_count" || echo "nkf.doc: original size 13777, current size $shar_count" fi # ============= nkf.1 ============== if test -f 'nkf.1' && test X"$1" != X"-c"; then echo 'x - skipping nkf.1 (file already exists)' else echo 'x - extracting nkf.1 (text)' sed 's/^X//' << 'SHAR_EOF' > 'nkf.1' && X.TH NKF 1L 6/OCT/96 X.SH NAME nkf ¥- Network Kanji code conversion Filter v1.6.2 X.SH SYNOPSIS X.B nkf [ X.B options ] [ X.B file ] X.SH DESCRIPTION X.PP X.B Nkf is a yet another kanji code converter among networks, hosts and terminals. It converts input kanji code to designated kanji code such as 7-bit JIS, MS-kanji (shifted-JIS) or EUC. X.PP One of the most unique facicility of X.B nkf is the guess of the input kanji code. It currently recognizes 7-bit JIS, MS-kanji (shifted-JIS) and EUC. So users needn't the input kanji code specification. X By default X0201 kana is converted into X0208 kana. For XX0201 kana, SO/SI, SSO and ESC-(-I methods are supported. For automatic code detection, nkf assumes no X0201 kana in MS-Kanji. To accept X0201 in MS-Kanji, use ¥-X, ¥-x or ¥-S. X.PP Options are bellow: X.TP X.B ¥-b bufferd output. This is a default. X.TP X.B ¥-u unbufferd output. X.TP X.B ¥-t no operations. X.TP X.B ¥-j output 7-bit JIS code. This is a default. X.TP X.B ¥-s output MS-kanji (shifted-JIS) code. X.TP X.B ¥-e output EUC (AT&T) code. X.TP X.BI ¥-i c output X.BI ESC¥-$¥- c as sequence to designate JIS-kanji (Default is X.BR B .) X.TP X.BI ¥-o c output X.BI ESC¥-(¥- c as sequence to designate single-byte roman characters (Default is X.BR B .) X.TP X.B ¥-r {de/en}crypt ROT13/47 X.TP X.B ¥-v display Version X.TP X.B ¥-T Text mode output (MS-DOS) X.TP X.B ¥-m MIME ISO-2022-JP/ISO8859-1 decode. To see ISO8859-1 (Latin-1) ¥-l is necessary. X.TP X.B ¥-mB Decode MIME base64 encoded stream. Remove header or other part before conversion. X.TP X.B ¥-mQ Decode MIME quoted stream. '_' in quoted is converted to space. X.TP X.B ¥-l Input and output code is ISO8859-1 (Latin-1) and ISO-2022-JP. ¥-s, ¥-e and ¥-x are not compatible with this option. X.TP X.BI ¥-f n Folding on X.BI n length in a line. Default 60. X.TP X.B ¥-X Allow X0201 kana in MS-Kanji. XX0201 is converted into X0208 by default. This is default in MSDOS. X.TP X.B ¥-x Try to preseve X0208 kana. Assume X0201 kana in MS-Kanji. And do not convert X0201 kana to X0208. In JIS output, ESC-(-I is used. In EUC output, SSO is used. X.TP X.B ¥-Z Convert X0208 alphabet to ASCII. ¥-Z1 converts X0208 kankaku to one ASCII space. ¥-Z2 converts X0208 kankaku to two ASCII spaces. X.TP X.B ¥-S Assume MS-Kanji and X0201 kana input. It also accpet JIS. AT&T EUC is recognized as X0201 kana. Without ¥-x flag, XX0201 kana is converted into X0208. X.TP X.B ¥-J Assume JIS input. It also accepts Japanese EUC. This is the default. This flag does not excludde MS-Kanji. X.TP X.B ¥-E Assume AT&T EUC input. It also accpet JIS. Same as ¥-J. X.TP X.B ¥-B Assume broken JIS-Kanji, which lost ESC. Usefull when your site is using old B-News Nihongo patch. ¥-B1 allows any char after ESC-( or ESC-$. ¥-B2 forces ASCII after NL. X.TP X.B ¥-O Output result to file. The first name in arguments becomes output. Please be careful. If there are no file arguments, nkf.out is chosen. X.TP X.B ¥-c add CR after NL. X.TP X.B ¥-d delete CR after NL. X.SH "FILES" nkf - binary X.SH AUTHOR Itaru Ichikawa (was ichikawa@fujitsu.JUNET) X.SH EDITOR a_kuroe@hoffman.cc.sophia.ac.jp (Akihiko Kuroe) kono@ie.u-ryukyu.ac.jp (Shinji KONO) X.SH BUGS X.B Nkf cannot handle some input that contains mixed kanji codes. Automatic code detection becomes very weak with ¥-x, ¥-X and ¥-S. X SHAR_EOF $shar_touch -am 1006155696 'nkf.1' && chmod 0644 'nkf.1' || echo 'restore of nkf.1 failed' shar_count="`wc -c < 'nkf.1'`" test 3296 -eq "$shar_count" || echo "nkf.1: original size 3296, current size $shar_count" fi # ============= nkf.1j ============== if test -f 'nkf.1j' && test X"$1" != X"-c"; then echo 'x - skipping nkf.1j (file already exists)' else echo 'x - extracting nkf.1j (text)' sed 's/^X//' << 'SHAR_EOF' > 'nkf.1j' && X.TH NKF 1 X.SH NAME nkf ¥- ネットワーク用漢字コード変換フィルタ v1.6.2 X.SH SYNOPSIS X.B nkf X.RI [ options ] X.RI [ file ] X.SH DESCRIPTION ¥fInkf¥fPはネットワークでメールやニュースの読み書きをするために作られた、漢 X字コードの変換フィルタである。 X.PP Xこの¥fInkf¥fPの特徴としては、入力漢字コード系の統計的な自動認識機能がある。 Xこのため、利用者は、入力漢字コード系が何であるかを知らなくても、出力漢字 Xコード系のみ指定すれば良いことになる。ただ、この判定機構は、理論的には完 X全ではないが、通常のニュースやメールのメッセージについては確実に動作する X安全なものにはなっている。 X.PP X現在、¥fInkf¥fPが認識できる入力の漢字コード系は、いわゆる「JISコード」(ISO- 2022-JPに基づくもの)、MS漢字コード(シフトJIS)、日本語EUC(AT&Tコード)のい Xずれかである。出力する漢字コード系も、この3種類である。 X.PP X入力は、ファイルを指定しなければ、標準入力となる。出力は標準出力である。 X.PP X指定できるオプションは、以下の通り。¥fB¥-mu¥fP のように続けることができる。 X.TP X.B ¥-b Xバッファリング出力を行う。(デフォルト) X.TP X.B ¥-u X出力時に、バッファリングしない。 rsh localhost | nkf ¥-u というように使う。 X.TP X.B ¥-t X何もしない。 X.TP X.B ¥-j JISコードを出力する。(デフォルト) X.TP X.B ¥-e EUCコードを出力する。 X.TP X.B ¥-s XシフトJISコードを出力する。 X.TP X.BI ¥-i ? JIS漢字を指示するシーケンスとして ¥fBESC-'$'-¥fP¥fI?¥fPを使用する。 (デフォルトは、ESC-'$'-'B') X.TP X.BI ¥-o ? 1バイト英数文字セットを指示するシーケンスとして、¥fBESC-'('-¥fP¥fI?¥fPを使用す Xる。 (デフォルトは、ESC-'('-'B') X.TP X.B ¥-r ROT13/47の変換をする。 X.TP X.B ¥-v Xバージョンを表示する。 X.TP X.B ¥-T Xテキストモードで出力する。(MS-DOS上でのみ効力を持つ) X.TP X.B ¥-m MIME を解読する。ISO-2022-JP(base64)とISO-8859-1(Q encode) Xのみを解読する。ISO-8859-1 (Latin-1) を解読する時は、 -lフラグも必要である。 X.TP X.B ¥-l 0x80-0xfeのコードをISO-8859-1 (Latin-1)として扱う。 JISコードアウトプットとの組合せみのみ有効。 ¥-s, ¥-e, ¥-xとは両立しない。 X.TP X.BI ¥-f ? X一行¥fI?¥fP文字になるように簡単な整形をおこなう。デフォルトは 60文字である。 X.TP X.B ¥-Z XX0208中の英数字と若干の記号をASCIIに変換する。¥-Z1 はX0208間隔をASCII spaceに変換する。¥-Z2はX0208間隔をASCII space 二つに変換する。趣味によって X使い分けてほしい。 X.TP X.B "¥-J ¥-E ¥-S ¥-X ¥-B" X期待される入力コードの性質を指定する。 X.RS X.IP ¥fB¥-J¥fP ISO-2022-JPを仮定する。 X.IP ¥fB¥-E¥fP X日本語EUC(AT&T)を仮定する。 X.IP ¥fB¥-S¥fP MS漢字を仮定する。X0201仮名も仮定される。 X.IP ¥fB¥-X¥fP MS漢字中にX0201仮名があると仮定する。 X.IP ¥fB¥-B¥fP X壊れた(Broken)JISコード。ESCがなくなったと仮定する。 X.RS X.IP ¥fB¥-B1¥fP X ¥fBESC-(¥fP, ¥fBESC-$¥fP のあとのコードを問わない X.IP ¥fB¥-B2¥fP X改行のあとに強制的にASCIIの戻す X.RE X.RE X.TP X.B ¥-x X通常おこなわれるX0201仮名->X0208の仮名変換をしないで、 X X0201仮名を保存する。入力は、MS-Kanjiの1byte仮名、SO/SI、 ESC-(-I, SSOを受け付ける。出力は、日本語EUC中ではSSO、 JISでは ESC-'('-I を使う。 X.TP X.B ¥-O Xファイルに出力する。Unixでは不要な機能だがWindowsやMSDOSでは X必要らしい。直後の引き数でなく、最後のファイル名が出力ファイ Xル名となり上書きされてしまうので注意。ファイル名がない場合は、 X適当に決められる(nkf.outなど)。 X.TP X.B ¥-c NLあとにCRを付加する。 X.TP X.B ¥-d NLあとのCRを削除する。 X X.SH AUTHOR X X市川 至 ichikawa@flab.fujitsu.co.jp (was ichikawa@fujitsu.JUNET) X X.SH ACKNOWLEDGE X morb@fujitsu, kiss@ayumi.stars.flab.fujitsu, cen122@flab.fujitsu, yuki@flab.fujitsu 他、fujitsu & flab.fujitsuの皆さんの協力に感謝。 shinoda@cs.titech, kato@cs.titech, uematsu@cs.titech TNX kono@ie.u-ryukyu.ac.jp X X.SH BUGS X X実は、入力のコード系の判定は、EUCとシフトJISとの自動判定であり、最初に X特定できる文字が来た時点で確定してしまう。そして、特定不能の間は保留バッ Xファにためておかれ、確定後に処理される。このため、 X.IP 1) 7ビットJISは常に認識される。シフトJIS、EUC混合もほとんどの X場合は問題がない。ただし、 X.IP 2) XシフトJISのX0201仮名とEUCが識別できない。したがって、 XデフォルトではシフトJISのX0201仮名はないと仮定している。 X.IP 3) Xちょっと、のろい。(初期の版よりは改良されている) X.PP JIS漢字の新旧版の区別とか、ASCIIとJISローマ字の区別などについては保存さ Xれない。 X.PP Xこのフィルタの変換は、コード系に対応した一括写像を施すだけなので、外字 Xや特殊記号や罫線素片など、JIS第一、第二水準表において定義されていないコー Xドに各社により割り当てられた文字がどうなるかまでは関知しない。そして、第 X二水準がないとかあるとかによる問題は、このフィルタの範囲外と思える。それ Xらは、書き手の責任でなんとかしてもらいたい。 X.PP Xいずれにせよ、通常のニュースの記事については問題はなく変換できるはずで Xある。(と思うのだが、今ひとつ自信はない) X X.SH "kono@csl.sony.co.jp (Shinji Kono) による変更。" X nkf 1.4 の冗長だけど昔は便利だったオプションのいくつかは削除されている。 ¥- ¥-n ¥-Bなど。 X.PP XX0201仮名はデフォルトでX0208に変換される。ただし、シフトJISのX0201仮名 XはデフォルトではEUCだと解釈されてしまう。これが望ましくない時には ¥-S や ¥- ¥-X などのフラグを使えば良い。¥-Xを指定すると一旦確定したシフトJISから EUCに移行することはない。ESC-(-Iによる X0201は常に認識される。SI/SO SSOは、¥-lが指定されていなければX0201と解釈する。 X.PP MIME decodeは、ISO-2022-JPのbase64と、ISO-8859-1の16進encodeのみ decodeする。 MIME decodeは、単純な改行や空白は安全に読み飛ばされる。 Xということは、 MIME decode中の空白は保存されない。lessやrnで行が分割 Xされた時は、 Terminalによって異なる ESC-[-K などが挿入されるので、 X完全にはdecode できない。ISO-8859-1 出力はJIS コード出力としか両立しない。 X.PP Fold 機能はfmtと異なり行頭の空白を無視する。禁則処理はあるが指定された X長さ+5で強制改行する。 X.PP XX0201仮名はrot47されない。 X X.SH nkf 1.6 "kono@ie.u-ryukyu.ac.jp (Shinji Kono) による変更。" X MIME のチェックをきびしくして(遅くなった分)安全になった。 Xしたがって複数行にまたがるMIMEはdecodeされない。 MIME の直後の空白は読み飛ばす。Q-Encding の_は空白に変換される。 X -B のlevelを0,1,2 に増やした。MIMEのbase64, Q-Encodingを解読する X機能を付けた。ヘッダなどは解読しないので、Encodeされた部分だけを X通す必要がある。 -mB は、nkf1.5と違う動きをするので、-B -m とすること。 X X.SH nkf 1.6.1 X ¥-Z で〜 ¥-> ‾の変換を止めた。 ¥-Z1 でX0208間隔¥->ASCII spaceの変換をおこなう。 ¥-Z2 でX0208間隔¥->ASCII space 2個の変換をおこなう。 X.PP kabe@dais.is.tohoku.ac.jp (Taketo Kabe) による日本語roff のソースが X.SH nkf 1.6.2 Xきました。 X SHAR_EOF $shar_touch -am 1006155696 'nkf.1j' && chmod 0644 'nkf.1j' || echo 'restore of nkf.1j failed' shar_count="`wc -c < 'nkf.1j'`" test 7364 -eq "$shar_count" || echo "nkf.1j: original size 7364, current size $shar_count" fi # ============= nkf_test.pl ============== if test -f 'nkf_test.pl' && test X"$1" != X"-c"; then echo 'x - skipping nkf_test.pl (file already exists)' else echo 'x - extracting nkf_test.pl (text)' sed 's/^X//' << 'SHAR_EOF' > 'nkf_test.pl' && #!/usr/local/bin/perl # # nkf test program for nkf 1.6 # Shinji KONO # Sun Aug 18 12:25:40 JST 1996 # # This is useful when you add new patch on nkf. # This test is too strict, faileurs do not mean # wrong conversion. # # nkf 1.5 differs on MIME decoding # nkf 1.4 passes Basic Conversion tests # nkf PDS version passes Basic Conversion tests using "nkf -iB -oB " # # MSDOS binary does not pass MIME (unbuf) test. # X $nkf = "./nkf"; # $nkf = "doscmd nkf.exe"; X # If you want to see the testing process, set next flag. X $detail_all = 0; X sub test { X local ($nkf,$in,$ans,$detail) = @_; X local ($result); X X $result = ''; X open(OUT,"> nkf.in"); X print OUT $in; X close(OUT); X system("$nkf nkf.out"); # easy X open(IN,"< nkf.out"); X print STDERR "¥nINPUT:¥n",$in if ($detail || $detail_all); X print STDERR "¥nEXPECT:¥n", $ans if ($detail || $detail_all); X while() { X $result .= $_; X } X print STDERR "¥nGOT:¥n",$result if ($detail || $detail_all); X return ($result eq $ans)?"Ok¥n":"Fail¥n"; } X # Basic Conversion print "¥nBasic Conversion test¥n¥n"; X # I gave up simple literal quote because there are big difference # on perl4 and perl5 on literal quote. Of course we cannot use # jperl. X $example{'jis'} = unpack('u',<<'eofeof'); M1FERED"6GIAR(%-E8V]N9"!3=&%G92"8I9=Y($AI M#28./ >@Y*#DR!+:6=O=2"!18&'@D^"8(._@]:$081@A+X* eofeof X $example{'euc'} = unpack('u',<<'eofeof'); M1FERI?*E¥R!+:6=O=2"AIJ'GH["CP:;!IMBGHJ?!J,`* eofeof X X # From JIS X print "JIS to JIS ... ",&test("$nkf ",$example{'jis'},$example{'jis'}); print "JIS to SJIS... ",&test("$nkf -s",$example{'jis'},$example{'sjis'}); print "JIS to EUC ... ",&test("$nkf -e",$example{'jis'},$example{'euc'}); X # From SJIS X print "SJIS to JIS ... ",&test("$nkf -j",$example{'sjis'},$example{'jis'}); print "SJIS to SJIS... ",&test("$nkf -s",$example{'sjis'},$example{'sjis'}); print "SJIS to EUC ... ",&test("$nkf -e",$example{'sjis'},$example{'euc'}); X # From EUC X print "EUC to JIS ... ",&test("$nkf ",$example{'euc'},$example{'jis'}); print "EUC to SJIS... ",&test("$nkf -s",$example{'euc'},$example{'sjis'}); print "EUC to EUC ... ",&test("$nkf -e",$example{'euc'},$example{'euc'}); X # Ambigous Case X $example{'amb'} = unpack('u',<<'eofeof'); MI<*PL:7"L+&EPK"QI<*PL:7"L+&EPK"QI<*PL:7"L+&EPK"QI<*PL:7"L+&E MPK"QI<*PL:7"L+&EPK"QI<(*I<*PL:7"L+&EPK"QI<*PL:7"L+&EPK"QI<*P ML:7"L+&EPK"QI<*PL:7"L+&EPK"QI<*PL:7"L+&EPK"QI<(*I<*PL:7"L+&E MPK"QI<*PL:7"L+&EPK"QI<*PL:7"L+&EPK"QI<*PL:7"L+&EPK"QI<*PL:7" ML+&EPK"QI<(*I<*PL:7"L+&EPK"QI<*PL:7"L+&EPK"QI<*PL:7"L+&EPK"Q MI<*PL:7"L+&EPK"QI<*PL:7"L+&EPK"QI<(*I<*PL:7"L+&EPK"QI<*PL:7" ML+&EPK"QI<*PL:7"L+&EPK"QI<*PL:7"L+&EPK"QI<*PL:7"L+&EPK"QI<(* eofeof X $example{'amb.euc'} = unpack('u',<<'eofeof'); M&R1")4(P,25",#$E0C`Q)4(P,25",#$E0C`Q)4(P,25",#$E0C`Q)4(P,25" M,#$E0C`Q)4(P,25",#$E0C`Q)4(;*$(*&R1")4(P,25",#$E0C`Q)4(P,25" M,#$E0C`Q)4(P,25",#$E0C`Q)4(P,25",#$E0C`Q)4(P,25",#$E0C`Q)4(; M*$(*&R1")4(P,25",#$E0C`Q)4(P,25",#$E0C`Q)4(P,25",#$E0C`Q)4(P M,25",#$E0C`Q)4(P,25",#$E0C`Q)4(;*$(*&R1")4(P,25",#$E0C`Q)4(P M,25",#$E0C`Q)4(P,25",#$E0C`Q)4(P,25",#$E0C`Q)4(P,25",#$E0C`Q M)4(;*$(*&R1")4(P,25",#$E0C`Q)4(P,25",#$E0C`Q)4(P,25",#$E0C`Q >)4(P,25",#$E0C`Q)4(P,25",#$E0C`Q)4(;*$(* eofeof X $example{'amb.sjis'} = unpack('u',<<'eofeof'); M&RA))4(P,25",#$E0C`Q)4(P,25",#$E0C`Q)4(P,25",#$E0C`Q)4(P,25" M,#$E0C`Q)4(P,25",#$E0C`Q)4(;*$(*&RA))4(P,25",#$E0C`Q)4(P,25" M,#$E0C`Q)4(P,25",#$E0C`Q)4(P,25",#$E0C`Q)4(P,25",#$E0C`Q)4(; M*$(*&RA))4(P,25",#$E0C`Q)4(P,25",#$E0C`Q)4(P,25",#$E0C`Q)4(P M,25",#$E0C`Q)4(P,25",#$E0C`Q)4(;*$(*&RA))4(P,25",#$E0C`Q)4(P M,25",#$E0C`Q)4(P,25",#$E0C`Q)4(P,25",#$E0C`Q)4(P,25",#$E0C`Q M)4(;*$(*&RA))4(P,25",#$E0C`Q)4(P,25",#$E0C`Q)4(P,25",#$E0C`Q >)4(P,25",#$E0C`Q)4(P,25",#$E0C`Q)4(;*$(* eofeof X print "Ambiguous Case. ", X &test("$nkf",$example{'amb'},$example{'amb.euc'}); X # Input assumption X print "SJIS Input assumption ", X &test("$nkf -Sx",$example{'amb'},$example{'amb.sjis'}); X # X0201 仮名 # X0201->X0208 conversion # X0208 aphabet -> ASCII # X0201 相互変換 X print "¥nX0201 test¥n¥n"; X $example{'x0201.sjis'} = unpack('u',<<'eofeof'); MD5.*<(-*@TR#3H-0@U*#2X--@T^#48-3"I%3B7""8()A@F*"8X)D@F6"9H*! M@H*"@X*$@H6"AH*'"I%3BTR-AH%)@9>!E(&0@9.!3X&5@9:!:8%J@7R!>X&! M@6V!;H%O@7"!CPJ4O(IPMK>X/;FZMMZWWKC>N=ZZWH+&"I2¥BG#*W¥O?S-_- MW¥[?M]^QW@K*W¥O?S`IH86YK86MU(,K?R]_,I`K*W¥O?S-VA"I2¥BG""S(SC !"@!" eofeof X $example{'x0201.euc'} = unpack('u',<<'eofeof'); MP;2ST:6KI:VEKZ6QI;.EK*6NI;"ELJ6T"L&TL=&CP:/"H¥.CQ*/%H¥:CQZ/A MH^*CXZ/DH^6CYJ/G"L&TM:VYYJ&JH?>A]*'PH?.AL*'UH?:ARJ'+H=VAW*'A MHCK>.WHZXCMZ.N8[>CKJ. MWJ3("LB^L]&.RH[?CLN.WX[,CM^.S8[?CLZ.WXZWCM^.L8[>"H[*CM^.RX[? MCLP*:&%N:V%K=2".RH[?CLN.WX[,CJ0*CLJ.WX[+CM^.S([=CJ$*R+ZST:3. #N.4* eofeof X $example{'x0201.jis'} = unpack('u',<<'eofeof'); M&R1"030S424K)2TE+R4Q)3,E+"4N)3`E,B4T&RA""ALD0D$T,5$C02-"(T,C M1"-%(T8C1R-A(V(C8R-D(V4C9B-G&RA""ALD0D$T-2TY9B$J(7.5XZ7ALD0B1(&RA""ALD0D@^,U$;*$E*7TM?3%]-7TY? M-U¥Q7ALH0@H;*$E*7TM?3!LH0@IH86YK86MU(!LH24I?2U],)!LH0@H;*$E* 97TM?3%TA&RA""ALD0D@^,U$D3CAE&RA""@`` eofeof X $example{'x0201.sosi'} = unpack('u',<<'eofeof'); M&R1"030S424K)2TE+R4Q)3,E+"4N)3`E,B4T&RA*"ALD0D$T,5$C02-"(T,C M1"-%(T8C1R-A(V(C8R-D(V4C9B-G&RA*"ALD0D$T-2TY9B$J(7.5XZ7@¥;)$(D2!LH2@H;)$)(/C-1&RA*#DI?2U],7TU? M3E¥W7S%>#PH.2E]+7TP/&RA*"FAA;FMA:W4@#DI?2U],)`¥;*$H*#DI?2U], 672$/&RA*"ALD0D@^,U$D3CAE&RA""@`` eofeof X $example{'x0201.x0208'} = unpack('u',<<'eofeof'); M&R1"030S424K)2TE+R4Q)3,E+"4N)3`E,B4T&RA""ALD0D$T,5$;*$)!0D-$ M149'86)C9&5F9PH;)$)!-#4M.68;*$(A0",D)5XF*B@I+2L]6UU[?1LD0B%O M&RA""ALD0D@^,U$E*R4M)2¥;*$(]&R1")3$E,R4L)2XE,"4R)30D2!LH0@H; M)$)(/C-1)5$E5"57)5HE724M(2PE(B$K&RA""ALD0B51)50E51LH0@IH86YK M86MU(!LD0B51)50E52$B&RA""ALD0B51)50E525S(2,;*$(*&R1"2#XS421. &.&4;*$(* eofeof X # -X is necessary to allow X0201 in SJIS # -Z convert X0208 alphabet to ASCII print "X0201 conversion: SJIS ", X &test("$nkf -XZ",$example{'x0201.sjis'},$example{'x0201.x0208'}); print "X0201 conversion: JIS ", X &test("$nkf -Z",$example{'x0201.jis'},$example{'x0201.x0208'}); print "X0201 conversion:SI/SO ", X &test("$nkf -Z",$example{'x0201.sosi'},$example{'x0201.x0208'}); print "X0201 conversion: EUC ", X &test("$nkf -Z",$example{'x0201.euc'},$example{'x0201.x0208'}); # -x means X0201 output print "X0201 output: SJIS ", X &test("$nkf -xs",$example{'x0201.euc'},$example{'x0201.sjis'}); print "X0201 output: JIS ", X &test("$nkf -xj",$example{'x0201.sjis'},$example{'x0201.jis'}); print "X0201 output: EUC ", X &test("$nkf -xe",$example{'x0201.jis'},$example{'x0201.euc'}); X # MIME decode X print "¥nMIME test¥n¥n"; X # MIME ISO-2022-JP X $example{'mime.iso2022'} = unpack('u',<<'eofeof'); M/3])4T¥M,C`R,BU*4#]"/T=Y4D%.144W96E23TI566Q/4U9)1WEH2S¥]"CT_ M:7-O+3(P,C(M2E`_0C]'>5)!3D5%-V5I4D]*55EL3U-624=Y:$L_/0H]/VES M;RTR,#(R+4I0/U$_/3%")$(D1B11/3%"*$)?96YD/ST*&R1`)#TD)B0K)$H; M*$H@/3])4T¥M,C`R,BU*4#]"/T=Y4D%.144W96E23U!Y:S=D:'-O4V<]/3¥] M(&5N9"!O9B!L:6YE"CT_25-/+3(P,C(M2E`_0C]'>5)!3D5%-V5I4D]0>6LW M9&AS;U-G/3T_/2`]/TE33RTR,#(R+4I0/T(_1WE204Y%13=E:5)/4'EK-V1H M5)!3D5%-V5I 44D]*55EL3QM;2U-624=Y:$L_/0H_ eofeof X $example{'mime.ans'} = unpack('u',<<'eofeof'); M&R1"-$$[>B1.)48E.25(&RA""ALD0C1!.WHD3B5&)3DE2!LH0@H;)$(D1B11 M&RA"(&5N9`H;)$(D/20F)"LD2ALH0B`;)$(T03MZ)$X_*3MV&RA"96YD(&]F M(&QI;F4*&R1"-$$[>B1./RD[=C1!.WHD3C¥I.W8;*$(*0G)O:V5N(&-A5)!3D5%-V5I4D]*55EL3QM;2U-624=Y:$L_/0H_ eofeof X $example{'mime.unbuf'} = unpack('u',<<'eofeof'); M&R1"-$$[>B1.)48E.25(&RA""ALD0C1!.WHD3B5&)3DE2!LH0@H;)$(D1B11 M&RA"(&5N9`H;)$(D/20F)"LD2ALH0B`;)$(T03MZ)$X_*3MV&RA"96YD(&]F M(&QI;F4*&R1"-$$[>B1./RD[=C1!.WHD3C¥I.W8;*$(*0G)O:V5N(&-AB1./RD;*$)H5)! M3D5%-V5I4D]0>6LW9&AS;U-G/3T_/0H;)$(T03MZ)$XE1ALH0EM+4U9)1WEH $2S¥]"F5I eofeof X $example{'mime.base64'} = unpack('u',<<'eofeof'); M9W-M5"])3&YG$I+-&=Q=4,S24LS9W%Q0E%:3TUI-39,,S0Q-&=S5T)1 M43!+9VUA1%9O3T@*9S)+1%1O3'=K8C)1;$E+;V=Q2T-X24MG9W5M0W%*3EEG <$E+9V=U;4,X64Q&9W)70S592VMG<6U""F=Q eofeof X $example{'mime.base64.ans'} = unpack('u',<<'eofeof'); M&R1")$M&?B1I)#LD1D0Z)"TD7B0Y)"PA(D5L-7XV83E9)$2P@1$5.34%22R`@7"`B36EN(&OF<&AE. # Source directory was `/user/kono/src/nkf/nkf16'. # # Existing files will *not* be overwritten unless `-c' is specified. # # This shar contains: # length mode name # ------ ---------- ------------------------------------------ # 22176 -rwxr-xr-x nkf.exe # touch -am 1231235999 $$.touch >/dev/null 2>&1 if test ! -f 1231235999 && test -f $$.touch; then shar_touch=touch else shar_touch=: echo echo 'WARNING: not restoring timestamps. Consider getting and' echo "installing GNU ¥`touch', distributed in GNU File Utilities..." echo fi rm -f 1231235999 $$.touch # # ============= nkf.exe ============== if test -f 'nkf.exe' && test X"$1" != X"-c"; then echo 'x - skipping nkf.exe (file already exists)' else echo 'x - extracting nkf.exe (binary)' sed 's/^X//' << 'SHAR_EOF' | uudecode && begin 600 nkf.exe M35J@`"P``P`@`%,(__^5#8``````````/@````$`^S!J<@`````````````` M```````````````````````!````W@```!`!```````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M``````````````````````"Z>`0NB18U`K0PS2&++@(`BQXL`([:HY``C`:. M`(D>B@")+J8`Z#T!Q#Z(`(O'B]BY_W_¥¥J[C84,F.`5U]H#-@/?9B0Z(`+D! M`-/C@¥,(@^/XB1Z,`(S:*^J+/D8,@?¥``G,'OP`"B3Y&#(''RI%R*`,^"@IR M(K$$T^]'.^]R&8,^1@P`=`>#/@H*`'4.OP`0.^]W!XO]ZP/IA`&+WP/:B1Z> M`(D>H@"AC@`KV([`M$I7S2%?T^?ZCM*+Y_LSP"Z.!C4"ORH-N-0+_-H8`_S:$`/¥V@@#H M.@$NQ@;G`7(NQ@;6`0!0Z-0KN'<$CMB^#`"_#`#HN``NCAXU`O¥6F`C_%IH( M_Q:<""Z.'C4"Z'(`,¥"+¥+DM``($@-0`1N+X+:4,=`FY&0"Z+0#HQ0"+[+1, MBD8"S2&Y#@"Z1@#IP0`>N``US2&)'G(`C`9T`+@$-`"X!37- M(8D>>@",!GP`N`8US2&)'GX`C`:``+@`)8S*CMJZ7`'-(1_#'K@`)<46<@#- M(1¥>N`0EQ19V`,TA'QZX!27%%GH`S2$?'K@&)<46?@#-(1_#M/^+UXO>.]]T M%(`__W0*.&-0)T!R;_ M7P(?Z¥4F_U<"'^N^P[1`NP(`S2'#N1X`NE0`+HX>-0+HZO^X`P!0Z/G^```! M`%6+[%97QP8L#9@8_TX$@T8&`NFD`8M>!HLWZ8T!B]Y&B@>8+4(`B]B#^S9V M`^EX`='C+O^GS`7'!K0```#I:@''!K0``0#I80''!K@``0#I6`''!BP-F!CI M3P''!BP-4A/I1@''!BP-`Q;I/0''!L@``0#'!KX`!@#I+@&`/$!T!8`¥0G4& MB@2BU`!&Z1L!@#Q*=`J`/$)T!8`¥2'4&B@2BU0!&Z0,!QP:¥``$`Z?H`QP:Z M````Z?$`Z$$HN`$`4.CG*5GIXP#'!KX`!`#IV@#'!KX`!0"#/LH``W4&QP;* M``$`Z<0`@#PY?Q:`/#!¥$8H,@,'0N`$`T^`)!L``1NL&@0[```$`Z:``QP;* M````Z9<`QP;*``$`Z8X`QP;0``$`5NC:,UFCT@"#/M(``'X(@3[2```"?`;' M!M(`/`#K`4:`/#!¥!8`¥.7[UZUS'!L(``0"`/$)T!8`¥474-B@28H]P`1L<& MQ``'`.L]@#PY?Q:`/#!¥$8H,@,'0N`$`T^`)!L8`1NL&@0[&``$`ZQK'!MX` M`0#K$L<&X``!`.L*QP;B``$`ZP+K`(`¥`'0#Z6O^_TX$@T8&`H-^!`!^#8M> M!HL?@#¥M=0/I2?Z#/L@``'0D@3XL#9@8=0>#/LH``'45N#<#4+B^"%#HYRM9 M6;@!`%#HM"A9@SZZ``%U#K@`@%"@L@B84.BC+UE9@SZT``!T#C/`4+BN"%#H M;2]96>L5N`!`4#/`4+AP35"XK@A0Z#¥P@¥0(@WX$`'5&@SZZ``%U#K@`@%"@ MH@B84.A>+UE9N`!`4#/`4+AP#5"XG@A0Z`¥P@¥0(@SZX``!T"KB>"%#HC0%9 MZPBXG@A0Z.,!6>GZ`.GJ`+AO`U"+7@:#1@8"_S?HU2I968OX"¥!U%H-N!@*+ M7@;_-^A*+%FX___IWP#IO`"#/MX``75V@WX$`74SN*X(4+AQ`U"+7@:#1@8" M_S?HM"J#Q`8+P'43@VX&`HM>!O¥WZ`PL6;C__^FA`/].!.LHN*X(4+A[`U"X M*UFX___K=(,^N@`!=0ZX`(!0H+(( MF%#H?RY968,^N@`!=0ZX`(!0BD4$F%#H:BY96;@`0%`SP%"X<`U05^@>+X/$ M"(,^N```=`=7Z)¥`6>L%5^CX`%E7Z%¥G68M&!/].!`O`=`/I"?^#/MX``74( MN*X(4.A#)UDSP.L`7UY=PZ8#X0/A`P`#X0/A`^$#X0,``^$#X0/A`^$#R0/A M`^$#X0,)`^D"X0/A`^$#3`/A`Q¥#X0/A`^$#X0/A`^$#X0-P`M$#V0.4`E4# MX0/A`[4"BP+A`Z8"AP.+`L@"X0/A`^`"G0*"`GD"¥@+A`T,#58OL3$Q6BW8$ MZRFAK@A`HZX("¥!]$8L>N`C_!K@(BD;^B`>T`.L-N*X(4(I&_E#H]2I968L$ M2(D$"¥!¥#(M<"O]$"HH'M`#K!5;HO#)9B4;^/?__=;6X`0#K`%Z+Y5W#58OL M3$Q65XMV!#/_@SZ^``1T!X,^O@`&=0['!K8``0"A+`VC*@WK(8,^O@`%=0[' M!K8``0#'!BH-¥A+K#,<&M@```*$L#:,J#<<&V````,<&U@```,<&V@```.E; M"@O_=`/IQ@"#/M@``'0#Z;P`@W[^?WP#Z;,`@S[<``!T`^FI`(,^U@``=`/I MGP"#/MH``'0#Z94`@S[0``!T`^F+`(,^O```=`/I@0#K1J&N"$"CK@@+P'T1 MBQZX"/¥&N`B*1OZ(![0`ZPVXK@A0BD;^4.CT*5E9BP1(B00+P'P,BUP*_T0* MB@>T`.L%5NB[,5F)1OZ#?OX]="J#?OX.="2#?O[_=!Z#?OX;=!B#?OXD=!*# M?OY_?0R#?OX-=`:#?OX*=8J#?O[_=0/IP0D+_W1E@_]_?DJ#/K8``'4T@7[^ MH`!^$O]V_E=6Z+H)@¥0&,__I9PGK&8-^_D!]!S/_Z5H)ZPS'!K8``0#'!BH- M¥A+K#8-^_D!]!S/_Z3¥)ZP#K$X-^_G]T!H-^_B!_!S/_Z2H)ZP#I!`F#?OY_ M?P/IT0.#/K8``'4Z@S[(``!U,X%^_J``?0['!K8``0#'!BH-¥A+K%8%^_N`` M?0['!K8``0"A+`VC*@WK`(M^_NG>".F-`X,^R```=`/I@P.!?OZ@`'T#Z3¥! M@7[^X`!¥`^DU`8$^*@WR$G0#Z2H!@S[*``-U#Z$L#:,J#8M^_NF?".D1`8,^ MR@``=0/I!P&+7O[1XX"_)@``=0^+7O[1XX"_J```=0/IR0"#/MP``'4T`.L%5NA',%GK!5;HM1M9B_@]__]U(XM>_M'CBH>E M_[0`4(M>_M'CBH>D_[0`4/¥6+`U96>E:".M@@?_>`'4EBU[^T>.*AR<`M`!0 MBU[^T>.*AR8`M`!0_Q8L#5E9,__I_`?K-8'_WP!U+XM>_M'C@+^H``!T(XM> M_M'CBH>I`+0`4(M>_M'CBH>H`+0`4/¥6+`U963/_Z<4'@S[<``!U"597Z+L%5NBQ&EF)1OZ#/LH``'4#Z0&#/MP``'4T`.L%5NC?+EGK!5;H31I9B_@]__]U(8M>_M'CBH>E M_[0`4(M>_M'CBH>D_[0`4/¥6+`U96>GR!H'_C@!T.X,^W```=0E65^BK,UE9 MZP57Z`(?63/_BU[^T>.*AZ7_M`!0BU[^T>.*AZ3_M`!0_Q8L#5E9Z8$&Z>@` M@S[<``!U'(L$2(D$"¥!¥#(M<"O]$"HH'M`#K!5;H3BY9ZP56Z+P968OX/?__ M=3&+7O[1XXJ'I?^T`%"+7O[1XXJ'I/^T`%#_%BP-65FXC@!0,¥!0_Q8L#5E9 MZ50&Z8@`@?_>`'4EBU[^T>.*AR<`M`!0BU[^T>.*AR8`M`!0_Q8L#5E9,__I M]07K78'_WP!U,8M>_M'C@+^H``!T)8M>_M'CBH>I`+0`4(M>_M'CBH>H`+0` M4/¥6+`U963/_Z;X%ZR:+7O[1XXJ'I?^T`%"+7O[1XXJ'I/^T`%#_%BP-65F) M?OXS_^E._HM>_M'CBH>E_[0`4(M>_M'CBH>D_[0`4/¥6+`U96>EU!>L`ZR.! M?OZ@`'T6@3XJ#?(2=`['!BH-¥A*+?O[I5@7K!HM^_NE.!>DJ!8-^_B!_`^D- M`X-^_G]U`^D$`X,^V@``=0/I/`&!3OZ``(,^R@``=0/I*@&#/L@``'0*@S[8 M``)T`^D9`8%^_J``?0/I#P&!?O[@`'P#Z04!BU[^T>.`OR8``'4/BU[^T>.` MOZ@``'4#Z<<`@S[<``!U'(L$2(D$"¥!¥#(M<"O]$"HH'M`#K!5;HL"Q9ZP56 MZ!X868OX/?__=2.+7O[1XXJ'I?^T`%"+7O[1XXJ'I/^T`%#_%BP-65GIPP3K M7H/_7G4EBU[^T>.*AR<`M`!0BU[^T>.*AR8`M`!0_Q8L#5E9,__I9@3K-(/_ M7W4OBU[^T>.`OZ@``'0CBU[^T>.*AZD`M`!0BU[^T>.*AZ@`M`!0_Q8L#5E9 M,__I,`2#/MP``'4)5E?H(C%96>L%5^AY'%DS_XM>_M'CBH>E_[0`4(M>_M'C MBH>D_[0`4/¥6+`U96>GX`^L`Z;L!@W[^*'0#Z8T`@S[&``!U`^F#`(,^V``! M=7R#/MP``'5U@S[<``!U'(L$2(D$"¥!¥#(M<"O]$"HH'M`#K!5;HHBM9ZP56 MZ!`768E&_CW__W42N"@`4#/`4/¥6+`U96>G%`^LP@W[^0G0,@W[^2G0&@W[^ M2'41QP;8````QP;:````Z6¥#ZPVX*`!0,¥!0_Q8L#5E9Z24!@S[8``%U"8M^ M_NE0`^D5`8-^_CUU>(,^P@``='&#/MP``'5JBP1(B00+P'P,BUP*_T0*B@>T M`.L%5N@0*UF)1OX]__]U$K@]`%`SP%#_%BP-65GI.@/K,X-^_C]U%%;HTQ19 M/?__=07I)0/K`^GM`NL9N#T`4#/`4/¥6+`U965;_=O[HU2]96>G2`NF7`(-^ M_B1T`^F.`(,^Q@``=0/IA`"#/MP``'5]@S[<``!U'(L$2(D$"¥!¥#(M<"O]$ M"HH'M`#K!5;HA2I9ZP56Z/,568E&_CW__W42N"0`4#/`4/¥6+`U96>FH`NLY M@W[^0'0&@W[^0G41QP;8``$`QP;:````Z5@"ZQRX)`!0,¥!0_Q8L#5E9_W;^ M,¥!0_Q8L#5E9Z3H"ZP#I%`*#?OX/=0S'!MH```#I)@+I`@*#?OX.=0S'!MH` M`0#I%`+I¥`&#?OX;=`/IT0&#/MP``'4T`.L% M5NC8*5GK!5;H1A59B4;^/?__=1.X&P!0,¥!0_Q8L#5E9Z?L!Z8P!@W[^)'0# MZ;$`@S[<``!U'(L$2(D$"¥!¥#(M<"O]$"HH'M`#K!5;HC"E9ZP56Z/H468E& M_CW__W4?N!L`4#/`4/¥6+`U96;@D`%`SP%#_%BP-65GIH@'K7X-^_D!T!H-^ M_D)U$<<&V``!`,<&V@```.E2`>M"]P;&``(`=!''!M@``0#'!MH```#I.0'K M*;@;`%`SP%#_%BP-65FX)`!0,¥!0_Q8L#5E9_W;^,¥!0_Q8L#5E9Z0X!Z=(` M@W[^*'0#Z;P`@S[<``!U'(L$2(D$"¥!¥#(M<"O]$"HH'M`#K!5;HTBA9ZP56 MZ$`468E&_CW__W4?N!L`4#/`4/¥6+`U96;@H`%`SP%#_%BP-65GIZ`#K:X-^ M_DEU$<<&V``"`,<&V@`"`.F>`.M4@W[^0G0,@W[^2G0&@W[^2'40QP;8```` MQP;:````ZWSK,O<&Q@`"`'00QP;8````QP;:````ZV3K&K@;`%`SP%#_%BP- M65FX*`!0,¥!0_Q8L#5E9ZPVX&P!0,¥!0_Q8L#5E9ZQ:#?OX*=1#W!L8`!`!T M",<&V````.L`@S[8``%U#/]V_E?_%BP-65GK"O]V_E?_%BH-65DS_^L`@S[< M``!U'(L$2(D$"¥!¥#(M<"O]$"HH'M`#K!5;HT"=9ZP56Z#X368E&_CW__W0# MZ7+U,¥!0N/__4/¥6*@U96;@!`.L`7UZ+Y5W#58OL5E>+=@C'!FX-``!6_W8& MZ/¥`65G'1@8``.F#`(-^!@!T*X,^M@``=2*!_J``?@+K&(/^0'T'QT8&``#K M#,<&M@`!`,<&*@WR$NL`ZS2#_G]^+X'^H`!]#L<&M@`!`,<&*@WR$NL4@?[@ M`'T.QP:V``$`H2P-HRH-ZP")=@;K(.L`5O]V!NB)`%E9/?__=`>#/K8``'0" MZTS'1@8``.L`@S[<``!U+8M>!(L'2(M>!(D'"¥!¥%8M>!%.+7PJ+PUO_1PJ+ MV(H'M`#K!_]V!.C2)EGK!_]V!.@^$EF+¥#W__W0#Z3C_,__K'8J%+@VT`(E& M!HJ%+PVT`(OP5O]V!O¥6*@U964='.SYN#7S=ZP!?7EW#58OL@SYN#4!¥!;C_ M_^LOBQYN#8I&!(B'+@W_!FX-BQYN#8I&!HB'+@W_!FX-@SYN#4!¥!;C__^L# MH6X-ZP!=PU6+[%97BW8$BWX&@_[_=`0+]G4"ZSF!_I¥`?P6XX0#K`[AA`8O6 M`]8KT(OR@?^?`'T5@_]_?@6X(`#K`[@?`(O7*]"+^NL(B¥<%@O^+^$975O¥6 M+`U96;@!`.L`7UY=PU6+[%;_=@3_=@;HAPY968E&!*%RD8E&!H,^T```=0/I MF0#_=@;_=@3HJ`M968OPN04`N^¥5+CDW=`9#0^+WZWLN_V<*@S[@``%U+*&N M"$"CK@@+P'T0BQZX"/¥&N`BP#8@'M`#K#+BN"%"P#5#HGQU96<=&!@H`H:X( M0*.N"`O`?1"+'K@(_P:X"+`*B`>T`.L,N*X(4+`*4.AS'5E9ZQOI]P''1@8* M`,=&!```ZPS'1@8@`,=&!```ZP"#?@3^=5&AK@A`HZX("¥!]$(L>N`C_!K@( ML""(![0`ZPRXK@A0L"!0Z"D=65FAK@A`HZX("¥!]$(L>N`C_!K@(L""(![0` MZPRXK@A0L"!0Z`(=65GIB`&#?@3_=0;I?P'I>@&#?@0`=5KW1@:``'13H:X( M0*.N"`O`?1"+'K@(_P:X"+".B`>T`.L,N*X(4+".4.B_'%E9H:X(0*.N"`O` M?1&+'K@(_P:X"(I&!H@'M`#K#;BN"%"*1@90Z)8<65GI&@&#?@0`=`/IEP"# M?@8*=2Z#/N```74GH:X(0*.N"`O`?1"+'K@(_P:X"+`-B`>T`.L,N*X(4+`- M4.A6'%E9@WXFKH:X(0*.N"`O`?1&+'K@(_P:X"(I&!H@'M`#K#;BN"%"* M1@90Z"<<65GK,(,^X@``=2FAK@A`HZX("¥!]$8L>N`C_!K@(BD8&B`>T`.L- MN*X(4(I&!E#H]1M96>MZ@WX&('P2@WX&?G¥,@WX$('P&@WX$?GX(QP:V```` MZURAK@A`HZX("¥!]$XI&!`R`BQZX"/¥&N`B(![0`ZP^XK@A0BD8$#(!0Z*8; M65FAK@A`HZX("¥!]$XI&!@R`BQZX"/¥&N`B(![0`ZP^XK@A0BD8&#(!0Z'D; M65GK`%Y=PP``"0`*``T`(`#R$P$4EA/U$P$458OL5E>+=@16_W8&Z-0+65F+ M¥*%RD8E&!H,^T```=0/ID0#_=@96Z/@(65F+^+D%`+N$&"XY/W0&0T/B]^MU M+O]G"H,^X``!=2RAK@A`HZX("¥!]$(L>N`C_!K@(L`V(![0`ZPRXK@A0L`U0 MZ.¥:65G'1@8*`*&N"$"CK@@+P'T0BQZX"/¥&N`BP"H@'M`#K#+BN"%"P"E#H MPQI96>L5QT8&"@`S]NL,Z=(!QT8&(``S]NL`@_[^=5&AK@A`HZX("¥!]$(L> MN`C_!K@(L""(![0`ZPRXK@A0L"!0Z(`:65FAK@A`HZX("¥!]$(L>N`C_!K@( ML""(![0`ZPRXK@A0L"!0Z%D:65GIEF`0OV=`/IF`"#?@8* M=2Z#/N```74GH:X(0*.N"`O`?1"+'K@(_P:X"+`-B`>T`.L,N*X(4+`-4.@0 M&EE9@WXFKH:X(0*.N"`O`?1&+'K@(_P:X"(I&!H@'M`#K#;BN"%"*1@90 MZ.$965GK,(,^X@``=2FAK@A`HZX("¥!]$8L>N`C_!K@(BD8&B`>T`.L-N*X( M4(I&!E#HKQE96>G'`(-^!B!¥$(-^!GY_"H/^('P%@_Y^?@G'!K8```#IJ@"A MK@A`HZX("¥!])(O&2-'X4(/^7G¥$L''K`K"Q6@+0BQZX"/¥&N`B(%XK"M`#K M'KBN"%"+QDC1^%"#_EY_!+!QZP*PL5H"T%+H0!E96:&N"$"CK@@+P'TK]¥8! M`'0.@WX&8'T$L!_K`K`@ZP*P?HI6!@+0BQZX"/¥&N`B(%XK"M`#K);BN"%#W MQ@$`=`Z#?@9@?02P'^L"L"#K`K!^BE8&`M!2Z.4865GK`%]>7<,```D`"@`- M`"``JQ:N%D86HA:N%E6+[%;_=@3_=@;H00E968E&!*%RD8E&!H,^T```=0/I M'@'_=@;_=@3H8@9968OPN04`NQ$?+CDW=`=#0^+WZ?¥`+O]G"H,^U@``='>A MK@A`HZX("¥!]$(L>N`C_!K@(L!N(![0`ZPRXK@A0L!M0Z%@865FAK@A`HZX( M"¥!]$(L>N`C_!K@(L"B(![0`ZPRXK@A0L"A0Z#$865FAK@A`HZX("¥!]$8L> MN`C_!K@(H-4`B`>T`.L-N*X(4*#5`%#H"!A968,^X``!=2RAK@A`HZX("¥!] M$(L>N`C_!K@(L`V(![0`ZPRXK@A0L`U0Z-H765G'1@8*`*&N"$"CK@@+P'T0 MBQZX"/¥&N`BP"H@'M`#K#+BN"%"P"E#HKA=96<<&U@```.L;QT8&"@#'1@0` M`.L/QT8&(`#'1@0``.L#Z38%@WX$_W0#Z8$`@S[6``!T=Z&N"$"CK@@+P'T0 MBQZX"/¥&N`BP&X@'M`#K#+BN"%"P&U#H5!=96:&N"$"CK@@+P'T0BQZX"/¥& MN`BP*(@'M`#K#+BN"%"P*%#H+1=96:&N"$"CK@@+P'T1BQZX"/¥&N`B@U0"( M![0`ZPVXK@A0H-4`4.@$%UE9Z:H$@WX$`'0#Z=``]T8&@`!U`^G&`(,^V``" M=`J#/L@``'0#Z8D`@S[6``)T>Z&N"$"CK@@+P'T0BQZX"/¥&N`BP&X@'M`#K M#+BN"%"P&U#HKQ996:&N"$"CK@@+P'T0BQZX"/¥&N`BP*(@'M`#K#+BN"%"P M*%#HB!996:&N"$"CK@@+P'T0BQZX"/¥&N`BP28@'M`#K#+BN"%"P25#H8199 M6<<&U@`"`(%F!G¥`ZP"AK@A`HZX("¥!]$8L>N`C_!K@(BD8&B`>T`.L-N*X( M4(I&!E#H*Q996>G1`X-^!`!T`^D<`8,^U@``='VAK@A`HZX("¥!]$(L>N`C_ M!K@(L!N(![0`ZPRXK@A0L!M0Z/$565FAK@A`HZX("¥!]$(L>N`C_!K@(L"B( M![0`ZPRXK@A0L"A0Z,H565FAK@A`HZX("¥!]$8L>N`C_!K@(H-4`B`>T`.L- MN*X(4*#5`%#HH1596<<&U@```(-^!@IU+H,^X``!=2>AK@A`HZX("¥!]$(L> MN`C_!K@(L`V(![0`ZPRXK@A0L`U0Z&<565F#?@8-="NAK@A`HZX("¥!]$8L> MN`C_!K@(BD8&B`>T`.L-N*X(4(I&!E#H.!596>LP@S[B``!U*:&N"$"CK@@+ MP'T1BQZX"/¥&N`B*1@:(![0`ZPVXK@A0BD8&4.@&%5E9Z:P"@WX$_G0#Z4,! M@S[6``!T?:&N"$"CK@@+P'T0BQZX"/¥&N`BP&X@'M`#K#+BN"%"P&U#HS!19 M6:&N"$"CK@@+P'T0BQZX"/¥&N`BP*(@'M`#K#+BN"%"P*%#HI1196:&N"$"C MK@@+P'T1BQZX"/¥&N`B@U0"(![0`ZPVXK@A0H-4`4.A¥%%E9QP;6````H:X( M0*.N"`O`?1"+'K@(_P:X"+`@B`>T`.L,N*X(4+`@4.A/%%E9@WX&"G4N@S[@ M``%U)Z&N"$"CK@@+P'T0BQZX"/¥&N`BP#8@'M`#K#+BN"%"P#5#H&Q1968-^ M!@UT*Z&N"$"CK@@+P'T1BQZX"/¥&N`B*1@:(![0`ZPVXK@A0BD8&4.CL$UE9 MZS"#/N(``'4IH:X(0*.N"`O`?1&+'K@(_P:X"(I&!H@'M`#K#;BN"%"*1@90 MZ+H365GI8`&#/M8``71]H:X(0*.N"`O`?1"+'K@(_P:X"+`;B`>T`.L,N*X( M4+`;4.B)$UE9H:X(0*.N"`O`?1"+'K@(_P:X"+`DB`>T`.L,N*X(4+`D4.AB M$UE9H:X(0*.N"`O`?1&+'K@(_P:X"*#4`(@'M`#K#;BN"%"@U`!0Z#D365G' M!M8``0"#?@8@?`:#?@9^?@/ISP"#?@0@?`:#?@1^?@/IP`"AK@A`HZX("¥!] M$8L>N`C_!K@(BD8$B`>T`.L-N*X(4(I&!%#H[!)968-^!@IU+H,^X``!=2>A MK@A`HZX("¥!]$(L>N`C_!K@(L`V(![0`ZPRXK@A0L`U0Z+@265F#?@8-="NA MK@A`HZX("¥!]$8L>N`C_!K@(BD8&B`>T`.L-N*X(4(I&!E#HB1)96>LP@S[B M``!U*:&N"$"CK@@+P'T1BQZX"/¥&N`B*1@:(![0`ZPVXK@A0BD8&4.A7$EE9 MZP!>7<,```D`"@`-`"``U1G)&=T8O1G)&56+[%97BWX$BW8&@_X-=04SP.FH M`H/^"'41@S[,``!^!/¥.S`"X`0#ID@*#__]U#8,^S```=`:X"@#I@`*#_@IU M;SDVS@!U(X,^S```=`['!LP```"X"@#I8@+K#,<&S````+@!`.E4`NM&]P;. M`(``=`N)-LX`,¥#I00+K,X,^S@`@=0@_X@?AF#_G]]%("¥2@(`=`V* MA$H"M`"C7<-5B^R#[#!65¥<&W````#/VB][1XXN'R@*) M1OK'1M`]`,=&TC¥`QT;^`@#I`0&+7@2+!TB+7@2)!PO`?!6+7@13BU¥*B¥-; M_T<*B]B*![0`ZP?_=@3HP159B_B+7O[1XXU6T`/:B0<]__]T)(/_87P,@_]Z M?P>+QP7@_^L"B¥>+7OH#7OZ*%[8`.¥)U`^F<`(M&^HE&^.M1QT;¥`@#K%XM> M^@->_(H'BU[X`U[¥.@=T`NL+_T;¥BT;¥.T;^?.&+1OP[1OYU(X/_87P,@_]Z M?P>+QP7@_^L"B¥>+7OH#7OR*%[8`.¥)U`NL01HO>T>.+A¥H"B4;Z"¥!UGX-^ M^@!T`NLK_W8$5^@?&EE9,_;K%8O>T>.-1M`#V/¥W,¥!0_Q8L#5E91CMV_GSF MB¥?K7/]&_HM>^@->_H`_('8#Z?'^H<@`HW"-"_9U!L<&R``!`(O>T>.+A](" MH]P`@S[<`$)U'Z&T`*/$`(,^M```=1*+WM'C_[?*`O]V!.@I!5E9ZPK'!L0` M`0"+Q^L`7UZ+Y5W#58OL@^P45E>+=@2AK@`[!K``=!6+'JX`_P:N`('C_P.* MAW*-M`#IR02#/L0`!W4(H=P`B4;LZP7'1NP``(,^W`!1=`/I[P&#/L0``'0< MBP1(B00+P'P,BUP*_T0*B@>T`.L%5N@D%%GK$HL>L@#_!K(`@>/_`XJ'T M`.L%5NA5$UGIN`.#?OX_=2/'!MP`40"#/L0``'0)5E?H1QA96>L'_PZR`*&R M`(M&_NF/`X,^Q```=!R+!$B)!`O`?`R+7`K_1`J*![0`ZP56Z`@36>L2BQZR M`/¥&L@"!X_¥#BH=RC;0`B4;¥/?__=0:X___I3`.#_R!_!8O'Z4(#QP;<`%$` M@_¥P?`R#_SE_!XO'!=#_ZR2#_T%¥#(/_1G¥'B¥<%R?_K$X/_87P,@_]F?P>+ MQP6I_^L",¥"Q!-/@4(-^_#!¥#H-^_#E_"(M&_`70_^LJ@W[¥07P.@W[¥1G¥( MBT;¥!T`.L%5N@O$EGID@*AW`")1NZ+1NRC MW`#K#(-^_O]U!KC__^EX`H,^Q```=!R+!$B)!`O`?`R+7`K_1`J*![0`ZP56 MZ/$16>L2BQZR`/¥&L@"!X_¥#BH=RC;0`B4;^/2``?K>#/L0``'0T`.L%5NBT$5GK$HL>L@#_!K(`@>/_`XJ'BT;^Z:`8,^Q``'=`;'!M@```"+1OSI M2P&#/L0``'0T`.L%5NC$$%GK$HL>L@#_!K(` M@>/_`XJ'(/``O"B4;X@W[¥/71"BQZP`('C_P.*1OB(AW*-_P:P`(M&¥K$&T^`EP`"+ M5O"!XC¥`"¥*)1OB#?OH]=!.+'K``@>/_`XI&^(B' MK@#_!JX`@>/_`XJ'/_ M`XB'/_`XI&_HB'GX:@W[^07P&@W[^6GX. M@W[^,'P&@W[^.7X"ZSZ+'K(`@>/_`XI&_HB'T`.L%5NB*#EF)1OX]__]T`^E*_XL>L@"!X_¥#BD;^B(=R MC?¥&L@"AL@"CL`#'!MP``0"X`0#K`%]>B^5=PU6+[%97BWX$@_]`?A>#_UM] M"8O'!;__B_#K!XO'!;G_B_#K&X/_+WX)B¥<%!`"+¥.L-@_¥K=06^/@#K`[X_ M`(O&ZP!?7EW#58OLN*¥#4+B^"%#HR0196;CZ`U"XO@A0Z+P$65FX`@10N+X( M4.BO!%E9N$`$4+B^"%#HH@196;B(!%"XO@A0Z)4$65FXS`10N+X(4.B(!%E9 MN.0$4+B^"%#H>P196;@A!5"XO@A0Z&X$65FX6@50N+X(4.AA!%E9N'H%4+B^ M"%#H5`196;B4!5"XO@A0Z$<$65FXS`50N+X(4.@Z!%E9N/(%4+B^"%#H+019 M6;@0!E"XO@A0Z"`$65FX6P90N+X(4.@3!%E9N)<&4+B^"%#H!@196;CD!E"X MO@A0Z/D#65FX_P90N+X(4.CL`UE9N"P'4+B^"%#HWP-96?¥VK`#_-JH`N&(' M4+B^"%#HR@.#Q`C_-J@`N(¥'4+B^"%#HN`.#Q`8SP.L`7<-5B^Q6,¥!0_W8$ MZ+D+65F+¥#W__W4"ZQKW1@8"`'0&]¥8!`'4$,¥#K"<<&D@`%`+C__UY=PU6+ M[(,^E`<@=06X`0#K$XL>E`?1XXM&!(F'=I'_!I0',¥!=PU6+[%:+=@0+]GP% M@_X4?`FX!@!0Z%P-ZP^+WM'CQX?>"?__5NAA"UE>7/_ MEW:1H90'_PZ4!PO`=>O_=@3H#-197<-5B^Q65XMV!+___SET#G0"ZV"#?`8` M=!Z#/`!]"U;H5P!9"¥!T`NM*]T0"!`!T!_]T".BE%EF`?`0`?`N*1`284.AM M_UF+^,=$`@``QT0&``#'!```QD0$_X-¥#`!T$S/`4/]T#.@A"%#H*!%9QT0, M``"+QU]>7<-5B^Q65XMV!`OV=07HLSBT0&`P1`B_B+ M!"O'B017BT0(B40*4(I$!)A0Z",(@¥0&.¥=T#O=$`@`"=0>!3`(0`.N:,¥!? M7EW#58OL3$Q65¥=&_@``OQ0`OIX(ZQ+W1`(#`'0(5NA?_UG_1OZ#QA"+QT¥+ MP'7GBT;^7UZ+Y5W#58OL3$Q65XMV"#/_QT;^```SR8O>1HH'BM`¥ M!HD_BUX$BT;^B0>+P5]>B^5=P@8`58OL@^P$5HMV"/]V!(U&_E"-1OQ0Z"O_ MB40""¥!T'(!¥!`!](_]V_/]V_O]V!NBL#(/$!HA$!`K`?0W&1`3_QT0"```S MP.L_BD0$F%#H)`M9"¥!T!8%,`@`"N``"4(5$`G0%N`$`ZP(SP%`SP%!6Z$8% M@¥0("¥!T!U;HEOU9Z¥3'1`P``(O&7HOE7<(&`%:^G@B`?`0`?`J+QH/&$#W> M"7+P@'P$`'P$,¥#K`HO&7L-5B^Q6Z-?_B_`+P'4$,¥#K"E;_=@3_=@;H-?]> M7<-5B^Q6BW8(.70.=`0SP.L/5N@Q_5E6_W8$_W8&Z!/_7EW#58OL5H-^!`!¥ M">B1_XOP"¥!U!#/`ZQ"*1@2(1`16,¥!0_W8&Z.G^7EW#58OLN)$R4/]V!/]V M!HU&"%#HIPY=PU6+[%97BUX$@S¥`?0B+1P8#!T#K"HM>!(L'F3/"*¥*+¥(O( MBUX$]T<"0`!T`NLOBUX$BW¥*@S¥`?1WK"4^+WX`_"G4!08O&3@O`=?#K$(O? M1X`_"G4!08O&3@O`=?"+P5]>7<("`%6+[%:+=@16Z.K¥60O`=`6X___K2H-^ M"@%U$(,¥`'X+5NAV_YDI1@895@B!9`)?_L<$``"+1`B)1`K_=@K_=@C_=@:* M1`284.BD"8/$"(/Z_W4*/?__=06X___K`C/`7EW#58OL@^P$5HMV!(I$!)A0 MZ'H$68E&_(E6_H,¥`'T-5N@6_YD!1OP15O[K"U;H"?^9*4;¥&5;^BU;^BT;¥ M7HOE7<-5B^Q6H9(`.P94"GT0"¥!¥#(L>D@#1XXNW#`KK`[XI#%;_=@2X-PQ0 MN+X(4.BR_H/$"%Y=PU6+[%:+=@:+!$B)!%:*1@284.@%`%E97EW#58OL5HMV M!HI&!**VD8,¥_WTWBP1`B02+7`K_1`J@MI&(!_=$`@@`=!V`/K:1"G0'@#ZV MD0UU#U;HR/M9"¥!T!KC__^FY`.FQ`/=$`I``=0?W1`("`'4'@4P"$`#KXH%, M`@`!@WP&`'1$@SP`=`M6Z)'[60O`=`+KQXM$!O?8B02+7`K_1`J@MI&(!_=$ M`@@`=!F`/K:1"G0'@#ZVD0UU"U;H7_M9"¥!T`NN5ZTV`/K:1"G4?]T0"0`!U M&+@!`%"X0`Q0BD0$F%#H1A&#Q`8]`0!U&+@!`%"XMI%0BD0$F%#H+A&#Q`8] M`0!T#_=$`@`"=0B!3`(0`.E&_Z"VD;0`7EW#58OL5HMV!+BN"%!6Z._^65E> M7<-5B^Q,3%97BWX&BW8$B7[^]T0""`!T)NL:5HM>"/]&"(H'F%#HP_Y963W_ M_W4%,¥#I]P"+QT¥+P'7?Z>H`]T0"0`!U`^F#`(-¥!@!T93E¥!G,H@SP`=`M6 MZ)+Z60O`=`+KS%?_=@B*1`284.B-$(/$!CO')!`%¥"NMU M5_]V"(I$!)A0Z#T0@¥0&.¥=S`^EF_^M=@WP&`'1!ZS:+!$")!`O`?1:+7`K_ M1`I3BUX(_T8(B@=;B`>T`.L/5HM>"/]&"(H'4.C2_5E9/?__=0/I)O^+QT¥+ MP'7#ZQ97_W8(BD0$F%#H6@*#Q`8[QW,#Z0?_BT;^7UZ+Y5W"!@!5B^RX``)0 M@WX&`'0$,¥#K`[@"`%#_=@;_=@3HR@"#Q`A=PU6+[%97BW8&@WX$`'P2@WX$ M%'T,BUX$T>.#O]X)_W4%N`8`ZS.+QB4`P(OX.¥9U)3T`P'0@BUX$T>.+M]X) MBUX$T>.+QB7_/PO'B8?>"8O&)0#`ZP>X`0!0Z.@%7UY=PZ"B")A0Z!D&60O` M=0:!)J`(__VX``)0A0:@"'0%N`$`ZP(SP%`SP%"XG@A0Z#8`@¥0(H+((F%#H MYP59"¥!U!H$FL`C__;@``E"%!K`(=`6X`@#K`C/`4#/`4+BN"%#H!`"#Q`C# M58OL5E>+=@2+?@HY=`YU#(-^"`)_!H'__W]V!KC__^FF`(,^1`P`=0Z!_JX( M=0C'!D0,`0#K$X,^0@P`=0R!_IX(=0;'!D(,`0"#/`!T$;@!`%`SP#/24%)6 MZ('[@¥0(]T0"!`!T!_]T".C(#EF!9`+S_¥=$!@``B¥8%!0")1`B)1`J#?@@" M=#T+_W8YQP:8"!@W@WX&`'465^AG#UF)1@8+P'0'@4P"!`#K`^EM_XM&!HE$ M"HE$"(E¥!H-^"`%U!8%,`@@`,¥!?7EW#58OLN`$`4#/`,])04O]V!.CN!(/$ M"%W#58OL5HMV!@OV=0.^NI'&!`"X2`Q05NAP"%E9N`H`4(O&!0,`4#/`4/]V M!.B(!8/$"+A,#%!6Z%`(65F+QEY=P@0`58OL5HMV!%:#/KB1_W4%N`(`ZP.X M`0`!!KB1H;B14.B<_XOP,¥!05NAB]EE9/?__==6+QEY=PU6+[('LB@!65XM& M"$`]`@!S!3/`Z=(`BUX$T>/WA]X)`(!T$O]V"/]V!O]V!.A4#8/$!NFS`(M> M!-'C@:?>"?_]BT8&B4;XBT8(B4;¥ZU7_3OR+7OC_1OB*!XA&^SP*=03&!`U& MBD;[B`1&C89V_XO6*]"!^H``?#&+UBO0B_I24/]V!.C]#(/$!HE&_CO'=!,+ MP',%N/__ZTJ+1@@K1OSK/>M`C89V_XOP@W[¥`'6?C89V_XO6*]"+^HO""¥!V M)E*-AG;_4/]V!.BX#(/$!HE&_CO'=!`+P',"Z[F+1@@#1OXKQ^L#BT8(7UZ+ MY5W#5E".L0]T0"`P!T!5;H^_59@¥801X/_%'SK7U[#5E>_!`"^G@CK M$/=$`@,`=`56Z%'V64^#QA`+_W7L7U[#58OL5E=5BW8$_"O`F;D*`+<`OY<' MBAQ&]@$!=?B]``"`^RMT!H#[+74$18H<1H#[.7'T??BDI<#PQ/1BAQ&@/LY=P6`ZS!SX4U¥!_?:]]B#V@!=7UY= MPU6+[/]V!.B'_UE=PU6+[(M&!(O4@>H``CO"

CF@`SP.L)QP:2``@`N/__ M7<-5B^R+1@2+5@8#!IH`@](`B¥@+TG40@<$``G(*.¥QS!H<&F@#K"<<&D@`( M`+C__UW#58OL_W8$Z*3_65W#58OLBT8$F5)0Z+?_65E=PU6+[(M."+1#BD8& MBU8$S2%R`Y'K!%#H[0%=PU6+[+0^BUX$S2%R#-'CQX?>"?__,¥#K!%#HSP%= MPU6+[(/L!(M>!-'C]X?>"0`"=`6X`0#K3+@`1(M>!,TA_%`"^G@CK$XM$`B4``ST``W4%5NB@]%F#QA"+ MQT¥+P'7F7U[#58OL5HMV!/=$`@`"=`/HR/__=`:+1`B)1`I0BD0$F%#H.@2# MQ`:)!`O`?@B#9`+?,¥#K'H,¥`'4.BT0")7_^#2``B40"ZPC'!```@TP"$+C_ M_UY=P@(`58OL5HMV!(L$0(D$5N@$`%E>7<-5B^Q6BW8$@SP`?A"+!$B)!(M< M"O]$"HH'Z8(`@SP`?`?W1`(0`70)@TP"$+C__^MO@4P"@`"#?`8`=`Q6Z%7_ M"¥!T`NOFZ¥3W1`(``G0#Z!S_N`$`4+C(D5"*1`284.A%!(/$!@O`=2"*1`28 M4.B5_ED]`0!T`NNOBT0")7_^#2``B40"ZZ7KHX`^R)$-=0?W1`)``'2Q@V0" MWZ#(D;0`7EW#N)X(4.A6_UG#58OLM$2*1@:+7@2+3@J+5@C-(7(,@WX&`'4$ MB¥+K!NL$4.@"`%W#58OL5HMV!`OV?!6#_EA^`[Y7`(DV4@R*A%0,F(OPZQ&+ MQO?8B_`](P!_Y<<&4@S__XDVD@"X__]>7<("`%6+[+@`1(M>!,TADB6``%W# M58OLBUX$T>.!I]X)__VT0HI&"HM>!(M."(M6!LTA<@+K!5#HC/^97<-5B^R# M[")65P:+?@H>!XM>"(/[)'=8@/L"]]D#SOQ. MB@0L"G,$!#KK`P)&!*KB[[``J@>+1@I?7HOE7<(,`%6+[(-^"`IU!HM&!)GK M!8M&!#/24E#_=@;_=@BP`5"P85#H7O]=PU6+[/]V!O]V!/]V"/]V"K``4+!A M4.A$_UW#58OL_W8&_W8$_W8(_W8*@WX*"G4%N`$`ZP(SP%"P85#H'_]=PU6+ M[%97C-B.P(M^!(MV!HM."-'I_/.EJ$("B%&"(M&"*F``74'N`$`4.@B_C/`4/]V M!.@3_%E9B4;^/?__=2GW1@B``'0$,¥#K`[@!`(E&_O?&¥`!T*?]V!#/`4.AJ M_XOX"¥!]$^FQ`/?&``1T([A0`%#HV?WIHP!7Z.?[6>L7_W8$_W;^Z$'_B_@+ MP'UJZ8@`QT;^``!6_W8$Z(0`65F+^`O`?%,SP%!7Z'O]65F)1ORI@`!T'H'. M`"#WQ@"`=!XE_P`-(`!0N`$`4%?H6/V#Q`;K"O?&``)T!%?H!/^#?OX`=!3W MQO``=`ZX`0!04/]V!.A3^X/$!@O_?!WWQ@`#=`6X`!#K`C/`B]:!XO_X"]"+ MW]'CB9?>"8O'7UZ+Y5W#58OL3$RP`8M.!O?!`@!U"K`"]¥$$`'4"L`"+5@2Q M¥").!@K!M#W-(7(:B4;^BU[^T>.+1@8E__@-`(")A]X)BT;^ZP10Z.7¥B^5= MPU6+[(/L!%97BT8(0#T"`'(-BUX$T>/WA]X)``)T!3/`Z8P`_W8(_W8&_W8$ MZ(8`@¥0&B4;^0#T"`'(-BUX$T>/WA]X)`(!T!8M&_NMBBT[^BW8&'@>+_HO> M_*P¥&G0M/`UT!:KB].LL@4[@!`%#WV1O`4%'_=@3HDOR#Q`B+7@31XX&/W@D``ELK^Y=?7HOE M7<-5B^RT/XM>!(M."(M6!LTA<@+K!%#H%/Q=PU6+[%97_(M^!!X'B]7<-5B^RT08M6!,TA<@0SP.L$4.A¥^UW# MBL;H`@"*PM00AN#H`@"&X`20)Q1`)ZK#58OL@>R6`%97QT;N``#'1NQ0`,=& MZ@``ZT97N?__,L#RKO?125_#-H@%1_Y.['XO4U%2!HV&:O¥K^(V&:O]05_]V M"/]6"@O`=07'1NH!`,=&[%```7[NC;YJ_P=:65O#!OR-OFK_B7[¥BW[¥BW8& MK`K`=!(¥)701-H@%1_Y.['_NZ*S_Z^GIZP.)=O"L/"5TYXE^_#/)B4[RB4[^ MB$[UQT;X___'1O;__^L!K#+DB]"+V(#K((#[8',3BI^U#(/[%W8#Z9X#T>,N M_Z=<0^F4`X#]`'?X@T[^`>O0@/T`=^V#3OX"Z¥6`_0!WXH!^]2MT`XA6]>NU M@V;^W^L$@T[^(+4%ZZ>`_0!W2O=&_@(`=2F#3OX(M0'KD^E)`XM^!#:+!8-& M!`*`_0)S$@O`>0;WV(-._@*)1OBU`^EO_X#]!'77B4;V_L7I8O^`_01SRK4$ MZ5C_DBPPF(#]`G<9M0*'1O@+P'S4T>"+T-'@T>`#P@%&^.DV_X#]!'6>AT;V M"¥!¥N-'@B]#1X-'@`¥(!1O;I&O^#3OX0Z6C_@4[^`` O[OZ5S_MPCK"K<* MZPJW$+/I`MK&1O4`B%;[,]*(5OJ+?@0VBP7K$+<*QD;Z`8A6^XM^!#:+!9E' M1XEV!O=&_A``=`4VBQ5'1XE^!(U^NPO`=2¥+TG4K@W[V`'4IBW[¥BT[XXQJ# M^?]T%8M&_B4(`'0$LC#K`K(@BL+H#/[B^>E,_H-._@124%>*QYA0BD;Z4%/H MIOD6!XM6]@O2?P/I¥0#I_`"(5ON)=@:-?KJ+7@0V_S=#0XE>!/=&_B``=!`V MBQ=#0XE>!!8'Z'[]L#JJ%@=:Z'7]-L8%`,9&^@"#9O[[C4ZZ*_F'SXM6]CO1 M?P*+T>F>`(EV!HA6^XM^!#:+!8-&!`(6!XU^NS+D-HD%N0$`Z;D`B78&B%;[ MBWX$]T;^(`!U#3:+/8-&!`(>!PO_ZPLVQ#V#1@0$C,`+QW4%'@>_K@SH-OT[ M3O9V`XM.]NM]B78&B%;[BWX$BT[V"¥E]`[D&`%=1C5Z[4U*X`0`C1OY0BT;^ MJ0`!=`FX"`"#1@0*ZP>#1@0(N`8`4.A@!!8'C7Z[]T;^"`!T&(M6^`O2?A'H MV?PF@#TM=0%)*]%^`XE6¥HI&]0K`=!(F@#TM=`R#;O(!@U;R`$¥FB`7HK_R+ M]XM^_(M>^+@%`"-&_CT%`'43BF;[@/QO=0V#?O(`?P7'1O(!`.L;@/QX=`6` M_%AU$8-._D!+2X-N¥@)]!<=&¥@```T[R]T;^`@!U#.L&L"#H:/Q+.]E_]O=& M_D``=`NP,.A7_(I&^^A1_(M6¥@O2?BP,.@G_.+YA¥KC$BO9)JPVB`5'_D[L?P/H&OSB¥`O;?@F+R[`@ MZ`3¥XOGI1/R)=@:+?@3W1OX@`'4+-HL]@T8$`AX'ZPD'P0BQ#+$,L0[X_Q#]5B^R+7@31X_>'W@D`"'03 MN`(`4#/`,])04O]V!.C,]H/$"+1`BUX$BTX(BU8&S2%R#U"+7@31XX&/W@D` M$%CK!%#H6?9=PP````````````````!65XOTBUP&@^L$<@X['A@-=`7H0@#K M`^@#`%]>PSD>%@UT(XMW`O8$`70&B388#>L@.S86#70-B][H5`"+1P*C&`WK M#8O>,¥"C%@VC&`VC&@U3Z(#S6¥/_#SL>%@UT&(MW`HL$J`%U#P,'B02+/P/[ MB74"B][K`^@R`(L_`_N+!:@!=`'#`0>+]P/PB5P"B]^+?P8[WW0.B3X:#8MW M!(EU!(E¥!L/'!AH-``##BS8:#0OV=!"+?`:)7`:)702)?P:)=P3#B1X:#8E? M!(E?!L-65XOTBT0&"¥!T4@4%`'(V)?[_/0@`AK M__¥'B¥,%!`!?7L-0,¥!04.C`¥EM;)0$`=`DSTE)0Z++R6UM84#/;4U#HI_); M6SW__W04B]B)'A8-B1X8#5A`B0>#PP2+P¥-;,¥##4#/;4U#H@/);6SW__W06 MB]BA&`V)1P*)'A@-6$")!X/#!(O#PU@SP,,I!XOS`S>+_@/X0(D$B5P"B74" M@¥8$B¥;#B^Q34%%0Z!7_6PO`=!¥>!_R+^(MV_HL,@¥8$5H/I!='I¥Z6)1O[H M)OY;BU[^@¥0&PXO"@¥((.]%W-8O1.QX8#74/B0?_!P/#4U#HU_%;6^L>B_L# M^(E=`BO0*1>+]P/RB7P"0HD5B¥N+W^@Y_HO9@¥,$PU9758OLBUX(BT8*"¥!T M-PO;="V#ZP2+#TF+T(/"!8/B_H/Z"',#N@@`.¥IR#'<%@¥,$ZPCHA__K`^A1 M_XO#ZPM0Z&?^ZP13Z)+]6UU?7L/_)BH-``"/!B`-CP8B#8¥&)`TNC!Y71HDV M)@V)/B@-_(X&C@"^@``RY":L0(S%A]:3BS:(`$9&N0$`@#Z0``-R$8X&B@"+ M_K%_,L#RKN-N@/%_4(O!`¥-`)?[_B_PK^')'`U# M`]N+](OL*^MRYHOEB2X>#>,.B78`@¥4"-JP*P.#Z=/`SP(E&`"Z.'E=&BS8F M#8L^*`W_-B0-_S8B#:$<#:."`*$>#:.$`/¥F(`T``````````D8T````$%E& M`````````````%1U)5¥E8"5A)6(E9"5F)6@E:25J)6LE;"5M)6¥EWT¥ M/@``````````*RT````]`#P^```````````````D```E(R8J0``````````` M?0.-`YX#``!1`$(`40```$-O<'ER:6=H="`H0RD@,3DX-RP@1E5*251352!, M5$0N("A)+DEC:&EK87=A*2PQ.3DV(%,N($MO;F¥L($-/5P`Q+C8R`#0O.38P M.2]3:&EN:FD@2V]N;RP@0T]7`$UI>&5D($E33S@X-3DO2DE36#`R,#$O4TI) M4R]%54,@;W5T<'5T(&ES(&YO="!A;&QO=V5D+@H`<@!W`&YK9BYO=70`=P`] M/TE33RTX.#4Y+3$_43¥`/3])4T¥M,C`R,BU*4#]"/P`]/TE33RTR,#(R+4I0 M/U$_`%5304=%.B`@;FMF*&YK9C,R+'=N:V8L;FMF,BD@+5MF;&%G"`@("`@($%S"!P"0````#_````````````+@D`````_P`````````` M`#X)`````/¥```````````!."0````#_````````````7@D`````_P`````` M`````&X)`````/¥```````````!^"0````#_````````````C@D`````_P`` M`````````)X)`````/¥```````````"N"0````#_````````````O@D````` M_P```````````,X)`2`"(`(@!*`"H/______________________________ M_________P!`__¥``%8*7@IV"I`*GPJS"L4*U0KJ"OP*&0LM"SP+4`L``%T+ M;`N2"Z(+L`O!"](+Y`L``````````````````````````/8+!`P5#"0`17)R M;W(@,`!);G9A;&ED(&9U;F-T:6]N(&YU;6)E<@!.;R!S=6-H(&9I;&4@;W(@ M9&ER96-T;W)Y`%!A=&@@;F]T(&9O=6YD`%1O;R!M86YY(&]P96X@9FEL97,` M4&5R;6ES2!A